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ABSTRACT 


An  airborne  tactical  system  composed  of  three 
distributed  microcomputers  is  described.  An 
extrapolation  technique  using  the  method  of  orthogonal 
polynomials  is  presented  to  solve  the  ballistics 
problem. 

In  order  to  test  the  performance  of  distributed 
microcomputers  for  real  time  military  applications/  a 
simplified  airborne  tactical  system,  utilizing  two 
microcomputers  working  in  parallel,  is  implemented. 

The  motivation  for  this  research  is  the  reduction 
of  cost  that  would  result  from  the  use  of 
microcomputers  in  such  systems. 
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I.   INTRODUCTION 


Airborne  tactical  systems  on  board  attack  aircraft  are 
designed  to  perforin  the  following  functions: 

1 .  To  navigate  to  a  given  target. 

2.  To  control  the  aato-pilot. 

3.  To  display  information  to  the  crew  members. 

4.  To   solve   the   ballistics   equations   that   will 
compute  the  down  range  travel  of  the  weapon. 

5.  To   extrapolate   from   the   available   data,   the 
release  point  of  the  weapon. 

Current  tactical  systems  employ  a  minicomputer  as  their 
main  computing  device. 

An  alternate  approach  to  solve  this  problem  is  by  the 
use  of  several  microcomputers  processing  in  parallel  in 
place  of  the  minicomputer.  Although  the  most  recent 
microcomputers  are  much  faster  than  their  predecessors,  they 
still  lag  behind  the  minicomputers  in  their  arithmetic 
processing  capability.  That  is  why  a  distributed  system  is 
needed.  In  such  a  system,  the  processors  are  put  to  work 
with  as  much  parallelism  as  possible  and  they  communicate 
with  each  other  by  means  of  an  interrupt  mechanism.  The 
result  is  that  the  single  computing  cycle  is  broken  up  into 
smaller  cycles  some  of  which  are  executed  in  parallel, 
reducing  the  response  time. 


In  this  system,  three  microprocessors  constitute  an 
airborne  tactical  system: 

1-The  Executive  computer. 

2. The  Navigation  computer. 

3. The  Ballistics  computer. 

Because  of  the  availability  cf  only  two  microcomputers, 
this  thesis  implements  a  simplified  version  of  an  airborne 
tactical  system  using  two  Intellec/8-Mod  80  microcomputers 
working  in  parallel  to  simulate  the  attack  function  of  tne 
system. 

The  system  computes  from  a  given  series  of  aircraft 
positions  with  respect  to  the  target  the  release  point  of 
the  weapon  so  as  to  hit  the  target.  All  of  this  happens  on  a 
real  time  basis,  controlled  by  an  external  clock. 

Fig    1  shows  a  photograph  of  part  of  the  system. 
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To  provide  the  reader  with  an  understanding  of  how  a 
tactical  system  performs,  Chapter  II  describes  a  system 
using  three  microcomputers. 

Chapter  III  consists  of  an  analysis  of  the  ballistics 
problem  which  will  be  the  critical  part  of  the  implemented 
system. 

In  Chapter  IV,  the  work  done  on  the  I.B.M.  System  /360 
with  FORTRAN  is  described.  The  objectives  of  this  phase  of 
the  project  were  mainly  experimentation  with  system 
organization  and  design  and  testing  of  numerical  methods. 

Chapter  V  has  a  brief  report  about  the  necessary 
hardware  adjustments  and  setup  needed  for  the 
multiprocessing  scheme. 

Finally,  in  Chapter  VI,  the  PL/H  implementation  is 
described,  together  with  four  test  cases. 

The  data  used  were  partially  obtained  from  real  runs 
performed  at  the  China  Lake  target  range. 

Appendix  A  contains  the  FORTRAN  program  that  was  written 
to  perform  the  conversion  from  the  encoded  data  of  range, 
elevation  and  azimuth  of  the  aircraft,  as  tracked  by  a 
Nike-Zeus  radar,  into  decimal  representation  of  altitude  and 
horizontal  distance  to  target.  The  program  also  computes 
speed  and  dive  angle,  to  be  used  to  test  the  extrapolation 
routine.  This  same  program,  converts  these  values  into  the 
three  byte  floating  point  number  format  for  the  PL/M 
program. 

Appendix  B  shows  a  program  which  tests  the  extrapolation 
routine. 
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II.   DESCRIPTION  OF  THE  SYSTEM 


The  system  is  composed  of  three  computers,  sensors, 
display  units  and  auxiliary  devices/  each  of  which  is 
described  below.  The  reader  may  find  a  more  complete 
description  cf  the  sensor  instruments  in  [ 2  ]. 


A.   THE  NAVIGATION  COMPUTER 

This  computer  executes  a  program  that  periodically  polls 
sensors  in  order  to  compute  the  change  in  the  aircraft's 
position  during  the  last  tine  increment. There  are  four  sets 
of  sensors  to  gather  the  necessary  analogue  data  which  is 
then  converted  to  digital  form  and  presented  to  the 
computer .These  sensor  instruments  are: 

I.The  Inertial  Navigation  System  (IMS). 

2. The  Doppler  Radar  (DR)  . 

3. The  Air  Data  Computer  (ADC) . 

4. The  Radar  Set  (RS)  . 

The  INS  is  a  gyro-stabilized  platform  with 
accelerometers  mounted  so  that  accelerations  of  the  vehicle 
are  measured  in  the  north-south,  east-west  and  vertical 
directions.  It  operates  on  the  principle  that  every  time  the 
aircraft  changes  speed  or  direction  it  experiences  an 
acceleration.     With    the    continuous    measurements   of 


aircraft's   accelerations  the  INS  determines  the  velocity  by 
means  of  analogue  integration. 

A  Doppler  Radar  radiates  a  pattern  of  beams  to  the 
surface  of  the  earth  and  receives  the  reflection  of  this 
energy  back.  The  difference  between  the  frequency  of  the 
transmitted  signal  and  the  frequency  of  the  received  signal 
caused  by  the  relative  motion  of  the  source  of  the  signal 
with  respect  to  the  reflecting  surface  is  known  as  the 
Doppler  Effect.  By  measuring  the  frequency  shift  along  each 
beam,  the  DR  computes  the  velocity  and  distance  travelled  by 
the  aircraft. 

The  Air  Data  Computer  consists  of  the  aerodynamics  and 
thermodynamics  sensors:  angle  of  attack  vane,  static 
pressure  source,  Pitot  tube  and  temperature  probe.  It 
computes  the  airspeed,  the  free-stream  outside-air 
temperature  and  the  Mach  number. 

In  order  to  use  the  ADC  for  dead-reckoning,  the  attitude 
and  heading  cf  the  aircraft  must  be  supplied  from  other 
sources.  This  information  together  with  the  information  of 
wind's  velocity  and  direction,  allows  the  determination  of 
the  aircraft's  position  by  extrapolating  from  a  previously 
known  position. 

The  Radar  Set  determines  the  distance  of  the  target  by 
measuring  the  time  elapsed  from  the  transmission  of  a 
electromagnetic  wave  to  its  reception  after  being  reflected 
by  the  target.  The  bearing  is  determined  by  the  antenna's 
direction. 

The  system  has  a  magnetic  compass  that  indicates  the 
aircraft's  heading  in  relation  to  the  magnetic  north. 

An   altimeter   supplies    the   system   with    altitude 
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information. 

There  are  four  basic  modes  of  operation  of  this  system: 
By  using  both  the  INS  and  the  DR,  the  system  operates  in  its 
most  accurate  mode.  If  one  of  these  primary  sources  is 
malfunctioning,  the  system  operates  without  its  information, 
resulting  in  other  modes  of  operation.  In  the  case  of 
failure  of  both  INS  and  DR,  the  system  operates  in  its  least 
accurate  mode  using  the  ADC  with  the  estimated  wind  vector 
and  true  airspeed  of  the  aircraft  to  compute  latitude  and 
longitude. 

No  matter  in  which  mode  the  system  is  operating,  the 
information  of  aircraft's  position  is  smoothed  by  the 
Navigation  computer.  The  four  most  recently  computed  points 
are  approximated  by  a  quadratic  polynomial  using  a 
least-squares  fit.  This  smoothing  process  has  a  damping 
effect  that  reduces  spurious  oscillations  of  the  data 
points.  The  mathematical  description  of  this  technique  is 
found  in  Chapter  III. 

Using  the  smoothed  data  values;  the  increments  in 
distance  travelled  in  the  last  time  increment  are  computed 
and  the  position  coordinates  displayed.  As  soon  as  the  new 
values  are  computed,  the  Navigation  computer  interrupts  the 
Executive  and  transfers  this  information  to  the  Executive 
computer.  The  Navigation  computer  has  the  ability  to 
function  in  a  stand-alone  mode  to  display  aircraft  location 
regardless  of  the  status  of  the  rest  of  the  system. 

Another  important  feature  of  the  least  squares  curve 
fitting  technique  is  the  ease  with  which  sensor  malfunctions 
may  be  spotted.  The  crew  is  warned  of  the  ill  behavior  of 
one  of  the  sensors,  and  the  system's  mode  of  operation  may 
be  changed. 
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B.   THE  EALLISTICS  COMPUTER 


This  computer  receives  from  the  Executive  computer: 
aircraft  speed,  dive  angle  and  altitude.  The  type  of  weapon 
and  target's  altitude  are  initially  received  from  the 
Executive  computer.  With  all  these  data,  the  computer 
numerically  solves  the  differential  equations  to  compute  the 
down  range  travel  of  the  weapon.  There  will  be  no  guidance 
of  the  weapon  after  release,  although  the  weapon  may  be 
rocket  assisted  or  have  a  retarded  mode  of  fall.  When  the 
Ballistics  computer  finishes  its  calculations,  it  interrupts 
the  Executive  computer  to  transfer  the  results. 


C.   THE  EXECUTIVE  COMPUTER 


The  Executive  computer  controls  the  function  of  the 
whole  system.  It  sends  to  the  Ballistics  computer,  at  the 
beginning  of  the  run,  the  target's  altitude  and  the  weapon 
selection.  The  Executive  computer  will  be  interrupted  by 
the  Navigation  computer  which  periodically  reports  the 
aircraft's  position.  This  information  is  sent  to  the 
Ballistics  computer  after  it  is  converted  into  the  proper 
form. 

The  number  of  data  points  that  the  Executive  computer 
needs  for  the  extrapolations  depends  on  the  degree  of  the 
fitting  curve.  In  this  system,  it  will  be  a  third  degree 
polynomial.  In  order  to  guarantee  a  solution  to  the 
extrapolation  process,  the  Executive  computer  has  to  be 
supplied  with  at  least  four  distinct  data  points. 

When  the  Executive  computer  has  enough  data  points 
representing   horizontal   distance   to  target  and  respective 
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down  range  travel  together  with  the  corresponding  time,  it 
extrapolates  these  two  functions  of  time  and  finds  their 
intersection.  At  the  intersection  of  these  two  curves,  the 
distance  to  the  target  will  be  the  same  as  the  down  range 
travel.  Thus,  this  will  be  the  release  point  which  is 
sought. 

This  computer  will  divide  its  time  between  data 
manipulation,  data  transmission,  displaying  of  information, 
computation  of  release  point  and  delivering  steering 
commands  to  the  auto  pilot.  If  so  desired,  when  the  release 
point  is  reached,  the  computer  will  automatically  trigger 
the  release  mechanism. 

An  external  real  tine  clock  provides  the  Executive 
computer  with  exact  time,  so  that  time  dependent  variables 
may  be  recorded  together  with  real  time  values. 


D.   THE  COMMUNICATION  SCHEME 


Because  of  the  inherent  hierarchy  between  the  computers 
involved,  the  master-slave  type  of  multiprocessing  is  the 
most  suitable  and  simple  form  to  implement.  The  Ballistics 
and  the  Navigation  computer  act  like  peripheral  devices  of 
the  Executive  computer,  resulting  in  a  one  way  interrupting 
scheme.  The  only  computer  which  has  to  be  interrupted  is  the 
Executive  computer.  The  Navigation  and  the  3allistics 
computers  are  the  dedicated  slaves  which  asynchronously 
interrupt  the  Executive  computer. 
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Ill 


THE  BALLISTICS  PROBLEM 


In  the  most  general  form,  this  problem  may  be  described 
as  follows. 

The  aircraft's  position  in  space  is  described  at  time  t 
by  a  radius  vector  r(t)  in  a  three  dimensional  coordinate 
system.  The  aircraft's  velocity  is  described  by  the 
derivative  with  respect  to  time  of  the  radius  vector,  i.e. 
the  vector  dr/dt=r 

These  two  vectors  are  shown  in   Fig    2. 
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~ ~h target 


Figure    2  -   VISUAL  DESCRIPTION  OF  THE  BALLISTICS  PROBLEM 
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It   is   assumed   throughout  that  the  aircraft  during  its 

final  approach  to  the  target   is   restricted   to  fly   in  a 

vertical   plane   that  contains  the  target  and  the  origin,  so 
that  the  problem  becomes  two  dimensional. 

In   the   presence   of   strong  winds,  the  ground  track  of 

aircraft  is  used  to  determine  the   X-Y   plane   as  Fig  3 
shows. 
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Figure    3  -   TH2  WIND  2FFECT 
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The  target  is  located  on  a  line  which  is  parallel  to  the 
ground  track  of  the  aircraft,  so  that  at  the  estimated 
release  altitude  the  wind  will  carry  the  weapon  through  the 
distance  between  the  ground  track  line  and  the  dotted  line 
parallel  to  the  X-Y  plane. 

In  the  case  that  the  wind  direction  coincides  with   the 

aircraft's   heading,  the  target  will  be  in  the  X-Y  plane  and 

the  wind  effect  will  either   reduce   or   increase  the   down 
range  travel  of  the  weapon. 

With  the  problem,  now  reduced  to  two  dimensions,  the 
following  mathematical  formulation  applies: 

At  the  instant  the  weapon  is  released  from  the  aircraft, 

the   initial  position  and  velocity  of  the  weapon  agrees  with 

the  position  and  velocity  of  the  aircraft.  There   may   be   a 

small   added   initial  velocity  when  the  weapons  are  released 

by  small  charges,  cr  there   may   be   a   large   added   muzzle 

velocity   for   rockets   and   guns.   In  any  case,  the  initial 

velocity  of  the   weapon   is   determined   by   the   aircraft1  s 

velocity  r  (t   )  plus  the  constant  vector  V.  - 
0 

After  released,  the  weapon  becomes  a  freely  falling  body 
satisfying  Newton's  differential  equation 

inu^mg-c  |u|  u, 

where  u  is  the  position  vector  of  the  weapon  and  the 
forces  acting  on  the  weapon  are  the  gravity  and  drag  which 
is  proportional  to  the  velocity  squared.  The  term  c  is  a 
characteristic  drag  term  and  it  is  weapon  dependent. 

In   the  two  dimensional  coordinate  system,  the  equations 
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become  u=  (x  ,  y)  . 


2  .2  . 
mx=-c\/x  +  y   x 


2  .2 
my=-mg-c  W x  +y   y      (1) 


with  initial  conditions: 


x  (t  )=r  (t  )     x(t  )=f  (t  )+v 

0x0        0    x   0    x 


y(t  )=r  (t  )     y(t  )=f  (t  )+v 

0    y   0        0    y   0    y 


The  bombardier's  problem  is  to  determine  the  time  t  at 
which  to  release  the  weapon  in  order  to  hit  the  target. 
Stated  mathematically,  what  needs  to  be  solved  is  the 
combination  initial  value-boundary  value  problem: 


2.2. 
mx  =  -c\/x  +y   x       x  (t)  =r  (t)     x(t)=ir  (t)  +v 

x  xx 


2   2        _  _ 

my=-mg-c\/x  +y   y     y  (t)  =r  (t)     y(t)=r  (t)  +v 

y         y    y 


* 

with  the  boundary  condition  that  at  time  t: 


y(t)=0    x(t)=T 

In  order  to  give  a  clearer  understanding  of  the  problem, 

let   it   be   further   simplified   by   assuming  that  the  dLag 

forces  on  the  weapon   are   negligible.   In   this   case,   the 

differential   equations   become  very  simple.   Let  it  also  be 

that  the  release  point  t  =0.   The  system  becomes: 

0 


22 


mx=0       x(0)=r  (0)     x(0)=r  (0)+v 

X  XX 


my=-mg     y(0)=r  (0)     y(0)=r  (0) +v 

y         y    y 


The  analytic  solution  to  the  initial  value  problem  is 
obtained  by  integrating  both  equations  twice  with  respect  to 
t,  resulting: 


x  (t)  =  (r  (0)  +v  )  t  +  r  (0) 
xxx 


y(t)=-gt  /2+ (r  (0)+v  )  t+r  (0) 

y    y   y 


Next  it  is  desired  to  find  at  what  time  t  does  the 
weapon  hit  the  ground,  i.e.  at  wnat  time  t  is  tne  condition 
y(t*)=0  met. 


This   question   is   answered   by   solving   the  quadratic 
equation  for  the  positive  root: 


-gt  /2+ (r  (0)+v  )  t+r  (0) -0 

y    y   y 


giving: 


■V<i 


t=(r  (0)+v  )/g+\/(r  (0) +v  )   +2gv  /g 

y    y    v  y    y      y 


Therefore,  in  order  that  the  weapon  hit   the   target   at 


tirae   t: 


T=x(t)=(r    (0)  +v    )  t  +  r    (0),    or: 
xxx 


I 2 

'=(r    (0)+v    )[(r    (0)+v   )/g+"\/(r    (0)+v    )    +2gr      /g]+r     (0)       (2) 
xxyyvyy  y  x 
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As  an  example,  if  the  aircraft  is  at  level   flight   with 
constant  speed: 


r  =0    r  =constant=S 
Y       x 


r  =h,  and 
Y 


T=(S+v  )[v  /g*\/v  +2gh  /g]+r  (0) 
x    y    v  y  x 


The   release  point  (r  (0) ,h)  is  then  given  explicity  by; 

x 


r  (0)=T-(S  +  v  )[v  /g+\/v  +2gh  /g  ] 
x  x    y     V  y 


Even   in   the   general   case,   relation   (2)   allows  the 

determination  of  the  release  point  (r  (0) ,r  (0))  implicitly. 

x      y 


Therefore,  if  the  drag  effect  is  neglected,  the 
initial-bcundary  value  problem  is  relatively  easy  to  solve. 
However,  drag  cannot  be  ignored  in  the  real  case,  requiring 
that  the  more  complicated  system  of  differential  eguations 
(1)  be  solved. 

If  a  dedicated  computer  is  employed  to  solve  the  initial 

value   problem   (1)  sufficiently  fast,  the  down  range  travel 

x  (t*-)  may  be  determined  for  any  release  instant  t 
0  0 

Therefore  the  release  time  t  would  be  that  value  for 
which  x(t)=T. 

To  solve  this  problem,  all  that  is  needed  is  an 
extrapolation  technique,  so  that   from   successive   aircraft 
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horizontal   distances   to   target  and  corresponding  computed 

down  range  travels  it  is  possible  to  estimate  future   values 

for   these   two   functions.    At  the   release   point   these 
estimates  should  coincide. 

The   extrapolation  technique  employed  is  a  least-squares 
approximation  as  follows. 

It   is   desired  to  approximate  a  series  of  N  data  points 
<f  (x  )>  by  a  function  of  the  form 


F(x)=d  u  (x) +d  u  (x)  + +  d  u  (x)  , 

11      2  2         k  k 


that  depends  linearly  on  the  parameters  d  ,...,d  . 

1      k 


The   functions   u  (x) ,   are   selected   a   priori  and  the 

i 

parameters  must  be  determined. 


In   order   to   approximate   the  data  points  f(x  )  by  the 

n 

function    F(x),    the    parameters   must   minimize   the   function 


E(d    ,...,d  )=  £  [f  (x   )-F(x)  ]' 
1  k        n*i  n 


This   criterion   function   leads   to   the  least-squares 
method. 

By   applying   minimization   techniques,   one   gets    the 
following  system  of  k  linear  eguations  in  k  unknowns: 
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*  A  *  f 

d  L  u  (x  )  u  (x  ) +.  .  .+d  L   u  (x  )  u  (x  )  = 
1  n*t  i   n   1   n       k  ^  i   n   k   n 

Kl 

=  L  f(x  )u  (x  )    i=1,...,k 
n=«    n   i   n 


(3) 


It  may  happen  that  although  this   system   always   has   a 

solution   it   turns   out  to  be  unreliable  if  the  matrix  A  of 

the  coefficients  is  ill-conditioned,  i.e.   if  its   condition 

-1 
number,  cond(A)=|A{  |A   |  is  too  big. 

Next  it  will  be  shown  what  the  effects  of  using 
orthogonal  polynomials  are  and  how  to  generate  these 
polynomials. 


The   cond(A)   depends   entirely   on   the   choice   of  the 

:tions  u  (x)  .  One  way  to  garan 
i 

use  orthogonal  functions,  to  get: 


functions  u  (x) .  One  way  to  garantse  a  small  cond(A),  is   to 
i 


Y.  u  (x  )u  (x  )=0    i#j 
twi  x  n  j  n 


By      such   a    choice  of   orthogonal   functions  the    system    (3) 
reduces    to: 


* 


N 


[u    (x   )  u    (x   )=[f(x   )u.  (x    }         i=1,...,k 
i  *>"      i      n      i      n       nT1  n      l      n 

which,  besides  rendering  reliable  results,  is   much   simpler 

to  solve,  reducing  the  computation  involved. 


The  definition  of  the  scalar  product  of  two  functions   g 
and  h  that  will  be  used  is: 
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<g,h>=  l   g(x  )h(x  ) 
->=i    n     n 


The  functions  are  said  to  be  orthogonal  to  each  other  if 
<g,h>=0. 

A    sequence   of   polynomials   <P  (x)l   is   said   to   be 

orthogonal  if  all  P  (x)  are  orthogonal   to   each   other   and 

i 

each   P  (x)  is  a  polynomial  of  exact  degree  i.   One  property 
i 

of  such  a  sequence  is  that  any  polynomial  p  (x)  of  degree   <k 
can  be  written  as 


p(x)=d  P  (x)+d  P  (x)  «- +d  P  (x)    (4) 

0  0      11         k  k 


The   measure   of   difference   between  f  (x)  and  p(x)  that 
needs  to  be  minimized  can  be  written  as 


N  2 

<f  (x)-p(x),f  <x)-p(x}>=  Y.   [f  (x  )-p(x  )  ] 

«-..     n     n 


And, 


E(d  ,...,d  ) 
0      k 


=<f(x)-d  P  (x)-...-d  P  (x),f(x)-d  P  (x)-...-d  P  (x)  > 
00         kk  00         kk 


The   coefficients   that   produce   the   best   fit  have  to 
satisfy  the  system  of  linear  equations: 


d   <P    .P    >+d   <P    ,P   >•!•.. .+d   <P    ,P  >=<f,P   >        i=0,...,k 
00i11i  kki  i 


By  orthogonality,  this  reduces  to 


d  <P  ,P  >=<f,P  >    i=0,...,k 
i   i   i      i 


Thus,  if  S  =<P  ,P  >*0    i=0,...,k 
i    i   i 


the  coefficients  will  be  given  by 


d  =<f,P  >/S     i=0,. . . ,k 
i     i   i 


How  it  will  be  shown   how   the   sequence  of   orthogonal 
polynomials  may  be  generated  from  the  N  data  points. 

These  polynomials   satisfy   the   three   term   recurrence 
relation : 


P    (x)=A  (x-E  )  F  (x)  -  C  P    (x)    i  =  0,  1,.  .  .  ,k-1 
i+1     i    i   i      i  i- 1 


B  =  <xP  (x),P  (x)  >/S     i  =  1,...,k-1 
i     i     i       i 


C  =arbitrary    i=0 
i 


C.=  (A.S.)/(A.   S.   }    i>0 
1    li     i-1i-1 


Where  A  =a   /a    all  i 
i   i+1   i 


P   (x)eO 
-1 


S  =<P  ,?  >#0     i=0,...,k-1    and   a    is  the   leading 
i   i   i  i 


26 


coefficient  cf  the  polynomial  P  . 

i 


For  simplicity  it   is   decided   to   get   all   orthogonal 
polynomials  with  leading  coefficient  equal  to  1 ,  so  that: 


A  =a  =1    all  i. 
i   i 


Setting  P  (x)e1, 
0 


S  =  <P  ,P  >=  Zl=N 

0    0   0   » 


Next,  from  the  recurrence  relations: 


P  (x)  =  (x-B  )P  (x)=x-B  ,  where 
1         0   0       0 


B  =<xP  (x),P  (x)  >/S  =  [x/S 
0     0     0       0  w  n   0 


With  P  (x),...,P  (x)  already  obtained,  the  general   steo 
0  J 


is: 


S  .=<P.,F.>=  I   [P  (x  )  ] 
3        ID   n.,   in 


Because   P  (x)  is  of  exact  degree  jf    S   can  be  zero  only 
J  J 

if  no  more  than  j  of  the  points  x  ,...,x   are   distinct.   If 

1       N 

there  are  more  than  j  distinct  points  among  the  data  points, 
it  is  possible  to  calculate: 


B  =<xP  (x),P  (x)>/S  =  L    x  [P  (x  )  ]  /S 
j     j     j      j  M  n   j  n     j 
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c  =s  /s 
j    j    j-1 


The  next  orthogonal  polynomial  will  be 


P     (X)  =  (x-B  )P  (x)-C  P     (X) 

j+1  j    j         j  j-1 


As  an  example,  the  method  will  be  applied  to  approximate 
the  second  degree  polynomial 

2 
f  (x) =10-2x+x  /10 

at  the  points  given  by: 


x  =10+(n-1)/5     f  =  f(x  )     n  =  1, ,6 

n  n     n 


Z_  [f   -p(x   )  ]    ,    needs   to    be    minimized, 
n  n 


n-l 


Thus, 


P     (x)  =  1,  S    =   I    1  =  6 

0  0       i 


and    B    =  j    [  10+  (n-1 )  /5  ]/6  =  10  .  5 

0      n*t 


P    (x)=x-10.5 


fa 


S    =  L    [  (n-1)/5-0.5  ]    =0.7 

1       r*1 


<>  2 

B   =  l_  [  10+  (n-1)/5][  (n-  1J/5-0.5]   /0.7=10.5 
1       o-l 


C    =  S   /S    =0. 1166667 
1       1       0 
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2 
P  (x)=(x-10.5)  -0.1166667 


*   *       * 
Next  the  coefficients  d  #d   and  d   for  the  least-squares 

0   1       2 


approximation: 


*      *       *       * 
p  (x)  =  d  P  (x)  +d  P  (x)+d  P  (x),  are  calculated 
00      11      22 


*   fc 


d  =  [f  /6=0. 03666667 
0   «v-i  n 


*   fe 


d  =  If  P  (x  )/0. 7  =  0.1 
1   n»i  n  1   n 


*   fc 


d  =  [f  P  (x  )/0. 05973332=0. 999999 
2   v\--»  n  2   n 


Finally: 


* 
p  (x)  =0.03666667  +  0. 1  (x-10. 5)  + 


2 
+  0.0999999[  (x-10.5)       -0.1166667] 
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IV.   FORTRAN  SIMULATION 

It  was  realized  that  it  would  be  advantageous  to  produc    a 
FORTRAN  simulation  using  the  IBM  System/360,  because: 

1.  The  computing  environment  has  more  power   and   the 
arithmetic  is  easier  to  handle  than  in  PL/M. 

2.  The  system's   performance   can   be  checked   with 
respect  to  timing  constraints. 

3.  The  alternative  computer  program  allows   accuracy 
comparisons  to  be  made  with  the  PL/M  implementation. 

After  the  FORTRAN  simulation  had  been  tested  and  fully 
exercised,  the  PL/M  program  was  then  produced,  taking 
advantage  of  the  experience  obtained  during  the  development 
and  use  of  the  FORTRAN  program. 

In  this  simulation,  the  Navigation  and  the  Ballistics 
computers  are  represented  by  subroutines  and  there  has  been 
no  attempt  to  simulate  the  transfer  of  data  mechanism 
between  computers,  because  it  was  realized  that  the  aaount 
of  effort  reguired  would  not  justify  it. 

The   modules   that   comprise   the   simulation   and  their 

functions  are: 

MAIN  Governs  the  logic  of  the  simulation  and  takes  care 
of  the  real  time  clock. 

INIT  Performs  the  initialization  for  each  particular 
run. 

ICHECK  Checks  if  there  is  a  solution  to  the  problem.  If 
there  is  a  solution,  it  then  verifies  if  there  is 
enough  time  to  compute  the  solution.  If  the 
aircraft  is  too  low  and  could  be  hit  by  the 
weapon's  fragments,  the  pilot  is  warned. 
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DSPIAY     Displays  the  results  and  messages. 

POS       Calculates   the   aircraft  position  and  updates  its 

airspeed . 
BAL       Interfaces   the   .'1AIN   module   with  the  Ballistics 

modules. 
SETDAT     Does  the  initialization  process  for  the  Ballistics 

computations. 
DECODE     Sets   parameters   for   the  Ballistics  computation, 

according  to  the  selected  weapon. 
TRAJ      Calculates  the  downrange  travel  and  time  of  flight 

of  the  selected  weapon   at   the   current   aircraft 

position  and  speed. 
RUNGE      Auxiliary  module  of  TRAJ. 
DERIV      Auxiliary  module  of  TRAJ. 
INTER      Commands  the  intersection  search  pattern   for   the 

horizontal   distance   to   target  and  the  dcwnrange 

travel  curves. 
COUP      Does   a  stepwise  comparison  between  the  horizontal 

distance   to   target   and   the   downrange    travel 

curves,  searching  for  their  intersection. 
ORTFIT     Extrapolates  values  for  the  horizontal  distance  to 

target  and  the  downrange  travel  curves  for  a  giver- 
time. 
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PROGRAM  VARIABLES: 
VARIABLE         DEFINITION 


A 

AA 

ALT 

AN1,AN2 

AP1,AP2 

CC 

CF 

CFOHM1 

CFORM2 

CKDG 

CM 

CT 

DEG 

DEL 

DKG 

DKG1 

DKG2 

DM 

DMAX 

DM1 

DM2 

DS 

DTI 

FN 

FRACT 

G 

HH 

IBOTH 

IDNO 

IREF 

IREG 

MSTG 

Runge  Kutta  parameter. 

0.5/Runge  Kutta  parameter. 

'weapon  release  altitude. 

Runge  Kutta  variables  (X  direction) 

Runge  Kutta  variables  (Y  direction) 

Matrix  of  drag  curva  coefficients. 

CKDG  stretch  factor. 

CKDG  stretch  factor  for  the  first  stage. 

CKDG  stretch  factor  for  the  second  stage. 

Bomb  coefficient  times  drag  coefficient. 

Mach  number. 

Matrix   of    i-lach    curve   coefficients. 

Weapon  release  angle. 

ArcTan  (ejection  velocity/weapon  velocity) 

Shift  in  CKDG 

Shift  in  CKDG  for  the  first  stage. 

Shift  in  CKDG  for  the  second  stage. 

Shift  in  Mach  number 

Largest  integration  step  size. 

Shift  in  first  stage  Mach  number 

Shift  in  second  stage  Mach  number. 

Integration  step  size. 

Initial  integration  step  size. 

Egual  to  the  thrust  for  the  first  stage. 

Parameter  for  Runge  Kutta  integration 

Acceleration  due  to  gravity. 

Total  drag  function. 

Key  determining  if  two  drag  curves  are 

reguired  by  the  weapon. 

Identification  number  of  each  weapon. 

Reference  for  Mach  curve  coefficients. 

Mach  region  index. 

Weapon  stage  index. 


3<i 


RAD 
RHO 
SL 


TH 

THETA 
U 
V 

vx 

VXA 

vxo 

VY 

VYA 

VYO 

VZ 

X 

Y 

YO 

YT 

VKTS 

HV 

vv 

HVA 

VVA 

XA1 

TIME 

FTIME 

HTIME 

DTEAL 

DTE1 

DTE2 

DTE3 


Conversion  factor  for  radians. 

Air  density. 

Slope  coefficient  for  retarded  snakeye 

fins  deployment  time. 

Elapsed  time  of  flight  from  weapon 

release. 

Thrust/mass  of  rocket. 

Adjusted  weapon  release  angle. 

Aircraft  speed  in  feetSeconds. 

Velocity  of  weapon. 

Component  of  V  in  the  X  direction. 

VX  at  release  point. 

VX  at  start  of  present  integration  step 

Component  of  V  in  the  Y  direction. 

VY  at  weapon  release. 

VY  at  start  of  present  integration  step 

Muzzle  velocity  of  guns. 

Weapon  ground  range  from  release. 

Weapon  altitude  above  sea  level. 

Y  at  start  of  present  integration  step. 

Target  altitude  above  sea  level. 

Speed  of  aricraft  in  Knots. 

Horizontal  component  of  VKTS. 

Vertical  component  of  VKTS. 

Previous  value  of  HV. 

Previous  value  of  VV. 

Horizontal  distance  to  target. 

Real  time. 

Saved  value  of  TIME  for  DSPLAY. 

Previous  value  of  TIME. 

Time  spent  by  the  Ballistics  Computer. 

Time  spent  by  the  Executive  Computer  to 

transfer  data  from  the  Navigation  Computer, 

Time  spent  by  the  Executive  Computer  to 

transfer  data  from  the  Ballistics  Computer, 

Time  spent  by  the  Executive  computer  to 
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compute  the  release  point. 
DTE4  Time  spent  by  the  Executive  Computer  to 

execute  check  number  two. 
DTE5  Time  spent  by  the  Executive  Computer  to 

transfer  data  from  the  Navigation  Computer 

and  execute  check  number  four. 
DTE6  Time  spent  by  the  Executive  Computer  to 

save  and  restore  values  when  calling  the 

Navigation  Computer  and  execute  check 

number  three. 
TC  Time  necessary  to  compute  for  the  first  time 

the  release  point. 
TARP(2)         Time  at  release  point. 
XARP(2)         Horizontal  distance  to  target  at  release 

point. 
AARP  Aircraft  altitude  at  release  point. 

THV  Time  it  takes  for  the  aircraft  to  start  the 

evasion. 
ATOL  Limit  angle  between  aircraft  path  and 

line  of  sight  of  the  target. 
RLIM  Radius  of  a  hemisphere  defining  a  danger 

zone  around  the  target. 
ALIM  Limiting  altitude  for  the  aircraft. 

The  units  of  the  variables  are: 

Distances:        Nautical  miles. 
Altitudes:        Feet. 
Angles:  Degrees. 

Time:  Seconds. 

Speed:  Knots. 

The  values  of  DTBAL,  DTE1,  DTE2,  DTE3,  DTE4,  DTE5,  DTE6, 
TMV,  ATOL,  RLIM  and  ALIM  were  assumed  in  this 
simulation. Most  of  them  are  weapon  dependent. 

This   program   used   a   least-sguares   fit   of  the  third 
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degree,  by  means  of  orthogonal  polynomials  [3],  After  the 
fourth  aircraft  position  and  corresponding  downrange  travels 
are  computed,  the  Executive  Computer  proceeds  to  compute  the 
first  release  point  data.  From  this  time  on,  for  every  new 
position  and  corresponding  downrange  travel  received,  the 
Executive  Computer  determines  an  updated  release  point  using 
the  four  most  recent  aircraft  positions  with  their  downrange 
travels.  This  process  goes  on  until  there  is  no  more  time  to 
compute  the  next  release  point. 

The  way  the  release  point  is  found  is  by  a  stepwise 
comparison  between  the  extrapolated  values  of  the  horizontal 
distance  to  target  curve  with  the  downrange  travel  curve.  At 
the  release  point,  these  two  curves  intersect.  After  the 
curves  have  been  extrapolated  from  the  first  four  points, 
the  comparisons  between  the  extrapolated  values  of  the  two 
functions  are  made  from  point  number  five  on.  When  the 
intersection  point  is  passed,  the  direction  of  the  search  is 
reversed  and  the  time  increment  is  reduced.  The  search 
continues  until  the  difference  between  the  curves  is  smaller 
than  a  fixed  limiting  value. 

Fig    4   shows   graphically   how   the   search   for   the 
intersection  is  made. 
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Figure    4  -   FELEASE  POINT  TIME  DETERMINATION 
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The  ICHECK  module  has  4  entry  points  and  its  function  is 
to  check  for  exceptions.  First,  with  the  initial  data,  it 
checks  if  there  is  a  solution  to  the  problem.  There  are  two 
situations  that  would  not  have  a  solution: 

1.  The  aircraft  dive  angle  is  such  that  the  impact  of 
the  weapcn  would  always  be  short.  This  happens  if,  for  a 
given  weapon,  the  angle  between  the  aircraft  path  and  me 
line  of  sight  of  the  target  is  less  than  a  certain 
threshold . 

2.  The  aircraft  is  not  diving  and  the  present 
distance  to  target  is  smaller  than  the  downrange  travel. 

There  is  another  situation  in  which  the  solution  should 
not  be  computed,  because  at  the  release  point  the  aircraft 
would  be  below  its  limiting  altitude.  In  this  case  the 
system  would  also  display  "NO  SOLUTION  TO  THESE  DATA". 

Because  the  computation  of  the  release  point  requires 
approximately  one  secord  of  real  time,  it  is  necessary  first 
to  check  if  the  extrapolation  can  be  carried  out  in  time  to 
release  the  weapon.  If  this  can  not  be  done,  the  system  will 
display  "NOT  ENOUGH  TIKE  TO  COMPUTE". 

Every  time  a  release  point  is  computed,  the  ICHECK 
module  checks  if  at  the  moment  of  weapon  impact  the  aircraft 
is  inside  a  danger  zone  which  is  defined  by  a  hemisphere 
around  the  target  whose  radius  depends  mainly  on  the  weapon 
used.  If  this  is  the  case, the  system  will  display : "AIRCRAFT 
IS  IN  DANGER  ZONE". 

After  each  release  point  calculation  the  ICHECK  module 
verifies  if  there  is  time  to  compute  a  new  release  point  for 
the  next  position. 
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V.   THE  MICROCOMPUTERS  HARDWARE  IMPLEMENTATION 


The  hardware  implementation  of  the  system  required  that 
the  two  computers  have  a  second  input-output  board 
installed,  in  order  to  provide  all  the  connections  needed. 

To  make  the  system  simple,  it  was  devised  so  as  to  use 
the  fewest  number  of  input-output  ports  possible.  One  of 
the  key  facts  that  allowed  reduction  of  the  communications 
paths  among  the  computers  was  the  predictability  of  message 
lengths  throughout  the  complete  cycle  of  system  operation. 
The  result  is  that  there  is  no  necessity  of  a  status  port 
during  transmissions  of  data. 

The  Intellec  microcomputer,  as  it  is  furnished  by  the 
manufacturer,  does  not  have  available  externally  the  eight 
lines  that  constitute  the  interrupt  port,  nor  does  it  have 
an  external  interrupt  request  line.  It  was  necessary  to  set 
up  a  board  to  be  installed  on  the  Executive  computer,  to 
bring  out  these  lines,  so  that  the  necessary  connections 
could  be  made.  Fortunately,  this  turned  out  to  be  the  only 
change  necessary  to  use  the  interrupt  feature. 

Another  addition  to  the  Executive  computer  was  the 
external  clock  with  an  eight  bit  binary  counter  that  was 
connected  to  one  of  its  input  ports. 

Fig  5  shows  the  system's  components.  In  this  figure, 
the  numbers  correspond  to  the  eight  bit  input-output  ports 
of  the  computers.  PTR  stands  for  paper  tape  reader  and  DO* 
stands  for  disk  unit.  In  the  Executive  computer,  the 
Interrupt   Instruction   port   (II)  and  the  Interrupt  Request 
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line  (Int)  are  shown.  The  Executive  computer  will  be 
interrupted  by  means  of  the  Restart  3  instruction,  which  has 
the  bit  pattern  DF. 
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Figure    5  -   MICROCOMPUTERS  HARDWARE  IMPLEMENTATION 
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VI-   PLZJ1  HiPLEHENTATION  AND  T.HE  TEST  CASES 


The  system's  software  is  composed  of  two  separate 
programs,  one  for  each  computer. 

The  program  that  runs  on  the  Ballistics  computer  has  two 
procedures  to  take  care  of  the  communication  with  the 
Executive  computer.  The  first  one  is  to  receive  the  weapon 
identification  number  and  target  altitude  at  the  beginning 
of  the  run.  The  other  is  to  receive  speed,  dive  angle  and 
altitude  of  the  aircraft  and,  subsequently,  compute  the  down 
range  travel.  The  module  that  computes  the  down  range  travel 
was  the  subject  of  a  previous  thesis  [1]  and  is  used  in  this 
system  with  only  minor  adaptations.  When  the  computation  of 
the  down  range  travel  is  finished,  the  Ballistics  computer 
interrupts  the  main  computer  in  order  to  send  back  the 
results.  If  there  is  already  data  for  the  next  computation 
of  down  range  travel,  this  same  procedure  will  receive  the 
new  data  and  proceed  to  compute.  Otherwise  the  Ballistics 
computer  will  exit  from  this  procedure  and  return  to  the 
main  program.  In  this  fashion  the  system  guarantees  that 
the  Ballistics  computer  will  be  used  at  its  maximum.  This 
policy  had  to  be  adopted  in  view  of  the  fact  that  the 
computation  done  in  the  Ballistics  computer  is  the  most  time 
consuming  in  the  system. 

The  system  works  in  such  a  way  that  the  Executive 
computer  will  only  send  data  directly  to  the  Ballistics 
computer  if  it  is  idle,  in  which  case  the  Ballistics 
computer  will  be  waiting  for  data,  no  interruption  needed. 
If  the  Executive  computer  has  data  to  send  but  the  other 
computer   is   busy,   a  condition  that  the  Executive  computer 


knows  by  testing  a  flag,  the  data  is  sent  to  a  buffer. 

The  interrupt  service  procedure  in  the  Executive 
computer  is  the  one  that  upon  completion  of  receiving  tne 
computed  value  from  the  Ballistics  computer,  checks  if  the 
buffer  has  data  yet  to  be  processed  by  the  Ballistics 
computer.  If  this  is  the  case,  it  will  take  care  of 
transmitting  it  to  the  other  computer. 

The  program  that  runs  in  the  Executive  computer  is 
composed  of  the  following  modules,  with  a  brief  description 
of  their  functions: 

Mon1:      Links  the  program  to  the  I/O  facilities 

of  the  CP/H  system  if  no  returned 

value  is  expected. 
Mon2:      The  same  as  above,  except,  that  a  returned 

value  is  expected. 
Read:      Reads  characters  from  the  CFT  into  s 

buffer. 
Print:     Displays  the  buffer  starting  at  the 

specified  address. 
Printchar: Displays  the  specified  ASCII  character. 
Crlf:      Sends  carr  iage-*return-line-f  eed  characters. 
Getc:      Points  to  the  current  character  in  the 

buffer. 
Readc:     Reads  one  character  from  the  buffer. 
Readp:     Reads  a  pair  of  characters  from  the  buffer 

and  returns  the  corresponding  decimal 

value. 

All  of  the  above  modules  are  needed  to  use  the  CRT  as  an 
I/O  device  by  the  CP/M  system  [ft]. 

Conv:      To  return  the  decimal  value  of  the  number 

character. 
Trans:     Returns  the  ASCII  character. 
Clock:     Reads  in  the  values  of  the  external   clock. 
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Realt:     Displays  real  time. 

Relpt:     Computes  and  displays  the  release  point. 

Sendbuff:  To  send  data  to  the  buffer. 

Dsplv:     Displays  the  variable  value. 

Display:   Displays  aircraft's  speed,  dive  angle  and 

altitude. 
Polin:     Computes  the  coefficients  and  constants 

used  by  the  fitting  plynocr.ial. 
Ftab:      Floats  the  byte  values  of  time. 
Search:    Finds  the  intersection  of  the  curves  being 

extrapolated. 
Round:     Chooses  the  closest  time  to  the 

intersection  point,  in 

decimals  of  second. 
Extrap:    Given  the  time, extrapolates  the  value  of 

the  function. 
Negat:     Tests  if  the  variable  is  negative. 
Mant:      Converts  the  mantissa  of  the  number  to 

decimal  value. 
Poten:     Computes  the  decimal  value  of  the  exponent. 
Integ:     Displays  the  integer  part  of  the  values. 
Decim:     Displays  the  decimal  point  and  one  decimal 

place  fraction  of  the  variable. 
Index:     Finds  the  location  of  data  in  NAVTAB  given 

the  time. 
Comp:      Auxiliary  module  of  Search. 
Intserv:   Interrupt  service  procedure.' 

Receives  computed  values  from  the 

Ballistics  computer.  If  the 

buffer  is  full,  it  sends  new  data 

to  the  other  computer. 

The  simulation  of  the  Navigation  computer  is 
accomplished  by  the  use  of  a  table  with  values  of  speed, 
dive  angle,  altitude  and  horizontal  distance  to  target  at 
points  in  time  one  second  apart  for  the  first  ten  points  and 
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one  tenth  of  a  second  apart  for  the  last  thirty  points. 

The  first  part  of  the  table  is  used  to  obtain  points  to 
extrapolate  values  of  horizontal  distance  to  target.  From 
the  calculated  values  of  down  range  travel  using  these  same 
points,  extrapolations  of  this  variable  are  made. 

The  second  part  of  the  table  has  finer  time  increments 
in  order  to  allow  a  more  precise  determination  of  aircraft's 
position  at  release  point. 

The  complete  cycle  of  operation  of  the  system  is  as 
follows: 

1.  After  checking  if  the  Ballistics  computer  is 
ready,  the  Executive  computer  waits  for  inputs  of  run 
identification  number  and  weapon  identification  number  by 
CRT. 

2.  The  Executive  computer  sends  the  weapon 
identification  number  to  the  Ballistics  computer. 

3.  The  Executive  computer  waits  until  the  clock  reads 
zero  seconds. 

4.  The  Executive  computer  brings  from  the  NAVTAB 
table  to  a  working  area,  the  data  corresponding  to  the 
present  time. 

5.  These  data  are  sent  to  the  Ballistics  computer  if 
it  is  idle  or  to  a  buffer  if  it  is  busy. 

6.  The  Executive  computer  displays  the  data  sent,  on 
the  CRT. 

7.  The  Executive  computer  waits  until  two  seconds 
after  the  last  point  was  sent  to  the  Ballistics  computer. 

Steps  4,  5  and  6  are  executed  three  more  times. 

During  the  time  these  events  are  taking  place,  the 
Ballistics  computer  calculates  the  down  range  travel  and 
interrupts  the  Executive   computer   in   order   to   send   the 
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results  of  its  computations. 

There  will  be  two  instances  where  the  Executive  computer 
interrupts  will  be  disabled:  during  buffer  accesses  and 
during  displaying  of  data  on  the  CRT. 

8.  When  the  Executive  computer  already  has  the  down 
range  travels  for  all  four  points,  it  computes  the  release 
point. 

9.  With  the  computed  time  for  the  release  of  the 
weapon,  the  NAVTAB  table  is  accessed  in  order  to  obtain  the 
corresponding  position  of  the  aircraft. 

10.  This  data  is  sent  to  the  Ballistics  computer. 

11.  The  Ballistics  computer  calculates  the  down 
range  travel  and  sends  it  back  to  the  Executive  computer. 

12.  This  result  is  displayed  on  the  CRT. 

The  system  returns  to  step  1. 

The  two  second  interval  between  the  data  points  used  for 
the  extrapolation  was  adopted  because  of  the  displaying  of 
information  on  the  CRT  during  the  time  the  computers  are 
computing  the  release  point.  This  display  function  takes  on 
the  order  of  one  second  to  be  performed.  In  a  reel 
implementation,  the  displaying  would  be  avoided  during  the 
release  point  computation,  because  it  would  slow  down  the 
process. 

This  program  was  exercised  with  four  sets  of  data.  Runs 
one  and  two  used  real  data  that  was  obtained  from  a  digital 
recording  of  radar  tracking  during  A7  aircraft  practice 
bombing  runs  at  China  Lake.  Run  three  used  data  generated 
to  represent  level,  constant-speed  flight.  Run  four  used 
constant  dive  angle  and  speed. 

The  seguence  of  displayed  messages  on  the  CRT,  for  runs 
one   and   three,  were  photographed.  These  photographs  appear 
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in  the  section  entitled  PL/M   program   output,   starting   on 
page  98. 

In  the  following  table,  the  Fortran  and  the  PL/M  results 
are  summarized. 

The  PL/M  results  are  the  real  internal  values,  not  the 
displayed  values.  The  Display  routine  gives  only  approximate 
values. 

This  table  shows  for  each  run,  the  computed  values  of 
time  of  weapon  release  and  corresponding  aircraft's  distance 
to  target  and  down  range  travel.  It  also  shows  the  actual 
values  of  distance  to  target  and  down  range  travel  at  the 
computed  release  time. 


as 


FORTRAN  AND  PL/M 


Run   1J.     Release  £oint^ 
Time 

Distance  to  target 
Down  range  travel 

Tabulated   X3.I±li§§j. 

Time 

Distance  to  target 
COMPUTED  DOKN  RANGE  TRAVEL 
Kun  12     Release  E2inti 

Time 

Distance  to  target 

Down  range  travel 

Tabulated  values^ 

Time 

Distance  to  target 
COMPUTED  DOWN  RANGE  TRAVEL 
lun  $.2  MiS§.§§  point : 

Time 

Distance  to  target 

Down  range  travel 

Tabulated  values^ 

Time 

Distance  to  target 
COMPUTED  DOWN  RANGE  TRAVEL 
RJiH  £i£     K§l2ass  point: 

Time 

Distance  to  target 

Down  range  travel 

Tabulated  valuesj_ 

Time 

Distance  to  target 
COMPUTED  DOWN  RANGE  TRAVEL 


RESULTSj, 
Fortran 

10.84 

1831.4 

1831.4 

10.84 

1831.5 

1852.5 

11.  14 

1895.2 

1895.2 

11.  14 

1894.7 

1891.7 

11.  18 

1837.3 

1837.3 

11.18 

1836. 0 
1837.2 

11.26 

2456.6 
2456.6 

11.26 
2456.0 
2455. 9 


PL/M 

10.7 

1865.6 

1870.5 

10.7 

1864.3 

1888.0 

11.5 

1817.0 
1820.6 

11.5 

1817.5 

1818.7 

11.0 

1863.6 
1861.3 

11.0 

1366.0 

1861.0 

11.  3 

2444.2 
2434.6 

11.3 
2446. 1 
2486.4 
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The  results  show  two  kinds  of  disagreements:  between 
FORTRAN  and  PL/M  results  and  also  between  the  extrapolated 
and  computed  values  of  down  range  travel. 

Both  disagreements  are  due  to: 

1.  The  PL/M  program  that  runs  in  the  Ballistics  computer 
to  calculate  the  down  range  travel  of  the  weapons  is 
producing  results  that  differ  from  its  FORTRAN  counterpart. 
This  fact  was  not  observed  before.  It  so  happens  that  with 
the  data  used  in  this  implementation  the  PL/M  program  was 
not  as  accurate  as  it  had  been  in  previous  tests. 

2.  The  extrapolation  of  down  range  travel  uses  computed 
values,  which  in  spite  of  being  originated  from  smoothed 
data,  contain  roundoff  errors.  tfhen  a  third  degree 
polynomial  is  fit  to  four  of  these  points,  the  noise  present 
disturbs  the  extrapolation.  A  second  degree  polynomial 
through  the  same  four  points  would  probably  give  better 
results. 

The  time  the  Executive  computer  took  to  find  the  release 
point  was  on  the  order  of  0.9  seconds,  which  is  somewhat 
long.  This  time  can  be  reduced  by  using  a  faster 
extrapolation  technique. 
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VII.   CONCLUSIONS 


1.  The  hardware  system  used  to  demonstrate  the  tactical 
system  is  complete  and  working  properly. 

2.  A  different  extrapolation  technique  is  necessary  in 
order  to  produce  faster  and  more  accurate  results  for  the 
down  range  travel. 

3.  The  Ballistics  computer  is  time  critical  in  this 
system  and  because  of  that  the  Executive  computer  should  not 
hold  up  the  Ballistics  computer. 

This  thesis  was  not  able  to  prove  that  the  implemented 
system  would  meet  the  requirements  of  a  real  tactical 
system.  It  merely  provides  a  framework  with  which  further 
tests  could  be  exercised.  These  tests  should  include 
different  methods  of  extrapolations  and  all  types  of 
weapons.  In  particular,  with  respect  to  the  extrapolation 
technique,  a  straight  line  fit  through  the  last  three  data 
points  seems  to  be  promising  both  in  accuracy  and  speed  of 
computation. 
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APPENDIX  A 


THE  CONVERSION  OF  DATA  PROGRAM  AND  OUTPUT 


This  appendix  shows  the  program  that  performed  the 
conversion  from  the  encoded  values  of  range,  elevation  and 
azimuth  of  aircraft  as  tracked  by  radar  into  decimal 
representation  used  by  the  program  to  test  the  extrapolation 
routine  and  also  to  produce  the  data  for  the  PL/M  program 
which  uses  a  three  byte  floating  point  number 
representation. 

Following  the  program  listing,  the  outputs  are  shown. 

The  floating  point  number  used  is  composed  of  three 
bytes,  as  follows:  The  two  higher  order  bytes  constitute 
the  mantissa.  The  first  bit  of  the  mantissa  is  always  one, 
except  in  the  case  of  the  number  zero,  i.e.  the  number  is  a 
normalized  binary  number. 

The  lower  order  byte  represents  the  exponent  in  the 
following  manner:  The  first  bit  is  the  mantissa  sign  bit. 
If  the  number  is  negative,  this  bit  is  one.  The  following 
bits  represent  the  exponent  of  two.  This  exponent  is  biased 
by  hexadecimal  forty,  i.e.  from  this  number  and  up,  the 
exponent  is  positive  and  from  this  number  down,  the  exponent 
is  negative. 
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To  make  it  clearer,  some  examples  are  given: 

PL/M  floating  point  number      decimal  value 


E1  00  49 
A0  00  C4 
80  00  3F 


450.0 
-35.0 
0.25 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


60 
9 

1 

10 

70 

71 

72 


C 
C 

c 


**********  ***  ************#**:******  **£***,**;:;****:{:***# 
* 


DECK    FOR    THE    DATA 
POSITION, SPEED    AND 


* 
* 
* 
* 
* 

A* 

* 

*: 


PROGRAM    TO    PRODUCE     A    CARD 

CORRESPONDING    TO    AIRCRAFT 

DIVE    ANGLE    FOR    EACH    RUN. 

EACH    RUN    WILL    HAVE     80    CARDS    AND    THF    CARDS    WIL 

CONTAIN    16    TWO-HEXADECIMAL-CHARACTERS    BYTES, 

REPRESENTING:    TIME,    SPEED,     DIVE    ANGLE, 

ALTITUDE    AND    DISTANCE    TO    TARGET. 

THE     FIRST    FOUR    RUNS    WERE    OBTAINED    FROM    REAL 

DATA    AND    THE     LAST    TWO    RUNS    HAVE    BEEN 

GENERATED    TO    REPRESENT    IDEAL    CASES. 


L    * 


'  -V  T  -V  -\v  -I 


-■-    -.I-     -'-    -V     -'- 


* 
* 

v v  ^j.  j-  y-  -■-  v-   ^  .1.  vt  si  ■;,  J,  x  a,  4i,  v.  v-  w  .i.   ..  .',  .i,  .'.  .'<  ,v   .«.  j*  si,  -■,  --.   ,~  .u  - v  u,  s>     „•. 
*i*  ir  *«*  n*  t**;*  ■n*  V1  *r*  nfc  *»■■  nr  *<^  'v-  ^r  ***■  ^r  ""**  ***  i"r  *»*  ^"  *i*  ***■  •*»'  nr  *v  i*  ***  ^*  - r  *p  **i*  ^*  t* 


COMMON/ 

CCMMCN/ 

COMMON/ 

COMMON/ 

IEIGHT, 

ICNE 

COMMON/ 

COMMON/ 

CCMMON/ 

DIMENSI 
D I  MENS  I 

FCFMAT( 
READ(5, 
READ, 5, 
READ, 5, 
READ. 5, 
READ( 
READ( 
READ. 
READ. 
READ. 
READ. 
REAO( 
READ, 
READ, 
READ, 
READ, 
READ, '5, 
DC  101 
WRITE (6 
WRITE, 6 
FCRMAT( 
FCPMAT ( 
WFITE<6 
PCF-MATi 
WPITE<6 
FORMATt 
IF  ( (  IP 
WRITE(6 
FORMAT( 
•CONVER 
WRITE (6 
FORMAT, 
• ELEVAT 
WRITE (6 
FORMAT. 
WRITE, 6 
DC  19  I 
READ, 5, 
FCPMAT ( 
I  TIMFC  I 
TIME, I) 
TJ-E  TIM 
THE  CAR 
ANC  FRO 
ELEV,  I) 


TAO/T,X 

ACT/VKTS, 
ALL/  IAPR 
NAKH/IZER 
IN  INF,  ITE 


ALT,DEG,YT, IDNO 

I  (  16)  ,  IARRE.8  )  ,  IARRFU6)  ,KI,  INC 
0, I  TWO, ITHPEE, IFGUR.IFIVEtl SIX, I 
N, IELFVN, ITWELV,  ITHIRT,  I FOURT, IF 


SFVEN, 
IFT, 


(  26) 

,SXAT,FALT , FXAT 

TSM.40),     XATSM(40), 


4-0),  DIVE  (40) 

),     IAZi40>,     IRAN (40) 
0),     AZ(40),     RAN140) 


p  , 
5, 
5, 
5» 
5, 
5, 
5, 
5, 
5, 
5, 
5, 


MASH/     IHA 

MA SD/ SALT 

MAORT/    AL 

ALA(40)»     XAT(40) , DRT(40) 

ON    VELCC( 

ON    IEL(40 

ELEV(4 

Al) 

7)  I  ZERO 

7)  I  ONE 

7) I  TWO 

7) ITHPEE 

7 )  I  FOUR 

7; I  FIVE 

7)  I  SIX 

7)  I  SEVEN 

7) IEIGHT 

7) I  NINE 

7) [TEN 

7) IELEVN 

7)  ITWELV 

7)  ITHIRT 

7) I  FOUR T 

7  )  I  F  I  F  T 

IRUN=1,4 

,9) 

,60) 

/////) 
i  n  ) 

I  RUN 
•     RUN 


IME(40  ) 


I  TIME (40) 


INPU 
TO    D 


tl  ) 

11X, 
,10) 

/) 

UN    .EQ 

,70) 

12X, 

SI  ON 

,71  ) 

12X, 

ION' 

,72) 

4SX, 

,10) 

=  1,40 

4)     IEL( 

3  110) 

)=KTTtfE( 1 

=FLOAT( IT 
E     IS    A    FU 
0,     IT    GGE 
M    9,5    TO 
=CTDO(  IEL 


»  1 1 


3)     .OR.     (IRUN    .EQ.    4))    GO    TO    41 


T    DATA:    CODED    OCTAL    DIGITS', 6X, 
EC  I  MA L:  '  ) 


X, 


1  ELEVATION'  ,3X,«  AZIMUTH' ,6X, •  RANGE* ,6 
, IX,'  AZIMUTH' ,1X, 'RANGE* ) 

•DEGREES* , BX,' DEGREES'  ,  IX,* YARDS       ■ ) 


I).     IAZ(I),     IRAN(I) 


) 

I M  E  ( I ) )  / 1 0 . 

NOTION    OF    THF    NUMBEP    OF     ORDER    OF 
S    FROM    0    TO    9     IN     1    SEC.     INCREMENTS 


12.4     IN 
(  I  ),1) 


0.1    SEC.     INCREMENTS. 
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c 
c 


75 
19 


50 


55 


41 

43 

42 
64 
77 


80 
81 

82 

83 

99 

88 
90 
91 


AZ(I)=C 

Rfl\(I)  = 

THE  CON 

NUKBER 

RELEV=E 

Rf\M=RAN 

ALA(  I  5  = 

X AT( I  )  = 

WF  MOW 

WRITE(6 

FORMAT* 

CCNTINU 

CALL  SM 

VELOC( 1 

DIVEd  ) 

DC  50  L 

J  =  L-1 

S£LT=AL 

SXAT=XA 

F£LT=AL 

FXAT=XA 

CALL  SP 

DIVE(L) 

VELOC(L 

SALT=AL 

SXAT=XA 

FALT=AL 

FXAT=X4 

CALL  SP 

DIVE( 11 

VELCC( 1 

DC  55  L 

J  =  L-1 

S£LT=AL 

SXAT=XA 

FALT=AL 

FXAT=XA 

CALL  SP 

CIVE(L) 

VELCC(L 

W  R  I  T  E  (  6 

WRITE (6 

GC  TO  6 

DO  42  I 

READ(5, 

FCRMAT( 

CCNTINU 

WPITE<6 

FORMAT ( 

WRITE (6 

W  P  I  T  E  (  6 

FCPMAT< 

1»  TARGE 
WRITE (6 
FORMAT { 
WRITE(6 
DC  99  I 
WRITE(6 
FCPMAK 
WRITF(7 
FORMAT ( 
CCNTINU 
WRITE(6 
WRITF(6 
WRITE(6 
FORMAT ( 
WPITFI6 
WRITE! 6 
FORMAT ( 

If «CIST 
WRITE (6 
FCRMATt 


AZ<  I 
I  P  A  N 
ON  F 
CO  MP 
)/57 
000. 
*SI 
(  RN 
THE 
EL(  I 
0,3X 


TDO(  I 
CTDu( 
VERSI 
IS  AC 
LEV(I 
(  I  )/2 

RNM 
TRANS 
HAVE 
,75)1 
7X,  II 

COTH 
)=0.0 
=  0.0 
=  2,  10 


T  S  M  (  J  ) 

TSMU) 

TSMU  ) 

TSM(L) 

ADA 

=OEG 

)=VKTS 

TSMl 10) 

TSM(IO) 

T  S  M  ( 1 1 J 

TSM(ll) 

ADA 

)=DEG 

1)=VKTS*2 

=12,40 


Ml 

(  I  ),0) 

ROM  THE  CODED  DATA  INTO  DECIMAL  REAL 

L  ISHEO. 

.296 

N(RELEV)*6080. 

M   ,ELEV(I ),AZ( I ) )*2OOO.-750. 

ALTITUDE  AND  DISTANCE  TO  TARGET. 

) , IAZ  (I ) ,IRAN< I )  ,ELEV(I  )  ,  AZ(I  ),RAi\J(I  ) 

,I10,1X,I10,7X,F4.1,6X,F5.1,3X,F6.1) 


) 


TSM(  J 
TSMU  J 
T5M(L) 
TSM<L) 

ADA 

=  OEG 

J=VKTS*10 

.9) 

,60) 

4 

=  1.40 

43JTI 
F4.  i, 


ME(  I 

2F5. 


)  ,VELOC(  I ) ,DIVE<  I)  ,ALTSM(  I )  ,XATSM(  I) 
1  ,2F6.2) 


SMOOTHED  DATA  FOR  THE  PL/M  PROGRAM.') 
TIME   SPEED   DIVE  ANG   ALT.     DIST  TO', 
SEC.   KNOTS   DEGREES    FEET     YARDS   ') 


,77) 

12X,' 

,10) 

,60) 

12X,' 

T«  ) 

,81  ) 

12X,' 

,10) 

=  1  ,40 

,82)T 

12X,F 

,83)T 

F4.1, 

,9) 

,60) 

C a  ) 

L2X,»PL/M    FLOATING    POINT    NUMBERS:') 

,10) 

,90) 

12X, 

TO     TA 
,9J  ) 


IME< 
4.1  . 
IME( 
F5.1 


I  ) ,VELOC(  I)  ,DIVE(I ) ,ALTSM(  I  )  ,XATSM( I ) 
2X,     F5.1,2X,F5.1  ,5X,F6. 1 ,2X,F6.1 ) 
I  ) ,VELCC(  I)  ,DIVE(I) ,ALTSM(  I  ),XATSM( I ) 
,F5.1,F6.1,F6. 1) 


I  ME 
.RGET 


) 


SPEED 


12X,'SEC.        KNOTS 


DIVE    ANG      ALTITUDE       « 
DEGREES         FEET  ' 


5  5 


92 


97 


It  « 

WR 
DC 
IT 
CA 
VI 
CA 
CA 
IW 
CA 
DI 
IF 
CA 
CA 
I  F 
IW 
CA 
AI 
CA 
CA 
IW 
CA 
XI 
CA 
CA 
IW 
CA 
NC 
WR 
FC 
11X 
2A1 
PU 
WR 

FC 
i 

WR 

FC 
i 


YARDS    • ) 
ITE(6,10) 

22  1=1,40 
-IT  IMC ( I) 
LL  STIHA(IT) 
=VELCC( I ) 
LL  CTHCHVI  ) 
LL  CTHT 
=  2 

LL  SIHA( IW) 
V=DIVE( I ) 

(0IV.LT.0.) 
LL  CTHQ{DIV) 
LL  CTHT 

(DIVEC  D.LT 


DI V=-DIV 


0.)  IARRE<1)=1 


1 


22 
101 


C 
C 

C 

c 
c 
c 


cc 

cc 

WR 
ST 
EN 
SL 


LL  SI 
=  ALTS 
LL  CT 

LL  CT 
=  14 
LL  SI 
=  XATS 
LL  CT 
LL  CT 
=  20 
LL  SI 
W  WE' 
ITE(6 
RMAT< 
t  A  1 ,  A 
fAli  1 
NCH  2 
I T  E  (  7 
PMAT( 
H,',' 
ITE(7 
RMAT( 
H,",' 
0«  ,A1 
NTINU 
NTINJ 
ITE(6 
CP 
D 
BROUT 

if  #  if  %'  if 


HA( IW) 
M(  I) 
H0( AI) 
FT 

H  A  (  I  W  ) 
M(  I  ) 
HO (XI ) 

HT 

FA( IW) 
RE  READY 
,92) ( IHA{ 
1 2  X  ,  A  1  ,  A 1 
1, IX, A1,A 
X,A1,A1,  1 
CARDS  WI 
,  8  )  (  I  HA  (  K 
12X,«0C  ,A 
0' ,A1,A1, 
,97)( IHA( 
12X,*0'  ,A 
0' , Al,Al, 
,A1,»H,«  ) 
F 
E 
»9) 


TO  PRINT  THE 
J)  ,  J  =  l,26) 


PL/M  FL.  POINT 


NUMBERS. 
All 


,4X,A1,A1,1X,A1,A1,1X,A1,A1,2X,A1, 
1,2X,A1,AI,1X,A1,A1,IX,A1,AI,2X, 
X  ,  A  1  ,  A  1  ) 

TH  THE  PROPER  FORMAT  FOR  THE  PL/M 
)  ,  K=  1 ,  1 2  ) 

l^h'HtS'O'tAhAl.'HjS'OSAl.Al, 
•H,  '  t'ONAltAlj'HtS'O'  ,A1,/U,'H,«) 
!<)  ,K=13,26) 

liAlj'H.S'OSAhAl.'H.'t'OSAl.Al, 
'H^.'OSAliAh'H.'^O'fAltAl.'H,', 


P& 


INE  SMOOTH 


if  if  if  Xf  j;<  :£  if  if  •£  £  sjc  if  if  if  %.  if  sjc  if  if  if  if  if  sj;  if  if  if  -if  if  if  if  if  if  if : 


THIS  SUBROUTI 
THE  ORIGINAL 
FIT  USING  ORT 


NE  PRODUCES  SMOOTHED  DATA  FROM 
DATA,  BY  MEANS  OF  A  LE AS T-SCUARE 
HOGONAL  POLYNOMIALS. 


S  * 


**^****s«ej{ej!{s!t#5ic^*rits!«*^s3{c*4ejjc*s!sj!cjSc*^e^ej!e3!e*s{:**^5{t*«*****#j!ss}:^ 


-,--,.  *,-   ^- 


] 


10 


11 


CC 

DI 
SO 
B  = 
DC 
B  = 
BO 
SI 
DC 
SI 
B  = 
DC 
B  = 
Bl 
CI 
S2 
DC 
S2 


TSM(40),  XATSM(40), 
T(4C),  XAT(40) 
F(4) 


MMON/MAORT/  AL 
AL 
MENS  I  ON  C(4)  , 
=  40.0 
0.0 

8  1=1,40 
B  +  TIMEU) 
=  B/S0 
=0.0 

9  1=1,40 

=  S1H  TIME*  I  >-B0)**2 
0.0 

10  1=1,40 

Bt( TIME! I)  )*(TIME< I)-B0)**2 
=  B/S1 
=S1/S0 
=  0.0 

11  1=1,40 

=  S2«-(  (TIME<  I)-B1  )*(TIME(1  )-B0)-Cl)**2 


TIME (40), 


56 


Ill 


112 


12 


14 


141 


15 


C 

C 

c 
c 
c 
c 


B  =  0.0 
DO  11 
B=B+T 
B2=B/ 
C2=S2 
S3  =  0. 
DC  11 
S3  =  S3 
C2*(T 
0  =  0.0 
E  =  0.0 
DO  12 
D  =  D  +  A 
E  =  E  +  X 
C(  1)  = 
F<1)  = 
D  =  0.0 
E  =  C.O 
DC  13 
D=D*( 
E  =  E+( 
C(2)  = 
F(  2)  = 
D=0.0 
E  =  C.O 
DC  14 
D  =  C  +  ( 
E=Ef  < 
C(3)  = 
F(3)  = 
D  =  C.O 
E  =  0.0 
DC  14 
D=D+( 
-60- 
E  =  E  +  ( 
-RO- 
C(4)  = 
F(4)  = 
DC  15 
ALTSM 
(TIM 
*(TI 
XATSM 
(TIM 
*  (  T  I 
RETUR 
END 
FUNCT 


1  1  =  1 
IME(  I 

S2 
/SI 

0 

2  1=1 

+  (  (TI 

IME(  I 


1  =  1, 
LT(  I  j 
AT  <  I  ) 

D/SO 
E/SO 


1  =  1, 

ALT(  I 
XAT{  I 
D/Sl 
E/Sl 


1  =  1, 
(ALT( 

(XAT( 

0/S2 

E/S2 


1  1  =  1 
ALT(  I 
Ci  >-C 
AAT<  1 
CD-C 
D/S3 
E/S3 

1  =  1, 
(  I  »=C 
E(  I)- 
ME(  I  ) 
(I)=F 
E(  I  )~ 
M  E  (  I  ) 
N 


,40 

)*<  (TIMEU)-81)*<TIME(I  )-B0)-Cl)**2 


,40 

ME(  I)-B2)*UTIME(  I)-B1)*(TIME(  I)-B0)-C1)- 

)-BOI )**2 


40 


40 

) )*(TIME( I )-B0) 

)  ) *(TIME(  I  l-BO) 


40 

IJ )*( ( TIME( I )-Bl)*(T IMF (I )-B3)-Cl 

I)  )*(  (TIME(  I)-Bi)*(TIME(I)-BO)-Cl 


,40 

) )*(  (TIME( I )-B2)*( (TIME<  I>-Bi)*(T 

2*<TIME( I)-BO)) 

) )*(  (TIME( I)-B2J*((TIME( I)-Bl)*tT 

2*<TIME(I)-B0) ) 


40 

(  1  )+C<  2)*(TIME( I )-B0)+C<3)*((TIME 

BO) -CI )+C(4)*( (TIME(  I  )-B2)*< (T  I  ME 

-B0)-C1 )-C2*(TIME< I) -BO) J 

( 1 JfF(2)*(T IME( I !-B0) +F<3)~( (TIME 

B0i-C1)*F(4)*((TIME(I)-B2J*((TIME 

-B0)-C1)-C2*(TIME(I)-B0) I 


)) 
)) 


IME< I) 
IMEil ) 


(  I  }  -  3  1  )  * 
(  I  )-61) 

(I)-Bl  )* 
(I)-Bl) 


ION    KTIME< I ) 


jfc*************  £#; 


.U  J-  J,  J, 


?,■*  -^  ^C  *,.  f'.;  V  ¥  V  *1*  1*  T  T  ^'^  1*  T  1*  *«*  ^  *»*  'I4  "4*  -**  t*  ")^  "^  ***  *<*  -i- 

NG  * 


THIS    FUNCTION    GENERATES    THE    TIME    ACCORDI 
TO    THE    CARD    POSITION. 


C 

C 

c 

C 

c 
c 


IF    (  I  .LE.1OG0    TO    1 

KTIME=< I -11) +95 

GC    TO    2 

KTIME=( I-l)*10 

RETURN 

END 

FUNCTION    CTD0(KK,N) 

£  3jr  £  #  $  %.;■  £  jjsjjtjj:  *  #  --j};  ,«;  ^  #  ;>-  £  £  ####  **  #  $  #  *  jjt  *  *  #  ^  £  #  *  *  #*  * 


THIS  FUNCTION  CONVERTS  FROM  THE  CODED  OC 
NUMBER  TO  DECIMAL  NUMBER. 


•4c 

TAL     * 


K  =  KK 
IACUM=0 
DC  i  1=1,6 
J=K/< 10**(6-I) ) 


57 


L  =  J*(3**(6-I  )l 

IACUM=IACUM+L 

1  K=K-J*10**(6-[) 

C  N=0    MEANS    RANGE,     N  =  l, MEANS     ELEV    OR    AZIMUTH. 

IF    (N.EG.l)    CFAC=360./65535. 
IF     (N.EQ.l)     GO    TO    2 
CFAC=2. 

2  CTDO=IACUM*CFAC 
RETURN 

END 

FUNCTION    COMP(X, J) 

i*  *?  ^^^»*r*/»Vil'r¥-r -^  Ji»^T',*  -*r  V  -v*  *r  *r  ^r  ^  *■**  -r  -v  *r  ^*  nr  -r-  t*  -r-  'i5  *r  -r  T»  <r  *.*  ^  *r*  -*-  *r  *r  *v  -r  n*  -r  -v  ^  *r>  ^ 

P  sfic  a3c 

C  *  THIS     FUNCTION     PPODUCFS    THE    IARPF    ARRAY    WHEN  * 

C  *  CALLED    BY       THE    CTHO    SUBROUTINE.  * 

C  *  * 

^r  Vi"i*  *r  ^*  3>  -f  ¥  -Vr  *?  t  'i»  i*  i*  *?  -T"  Jt»  *»*  *,*  -f*  *.*  ***  f  "v  *«*  -A  nr-  ^r  -»*■  *.*  n*  7lt   i*  ni1  -v  *i*  t*-  *<*•  ***  *r  tp  ^  v  ^  i*  T  n^  T  n*  -v 

COMMON/ALL/     IARRI (16) t IARRE (8)     , I ARRF ( 1 6 )  , K  I  t I NC 

X=X-1. 

IAPRF( J)=l 

CCMP=X 

RETURN 

END 

SLBROUTINE    CTHO(X) 

-i~  «v  V  ^*  ^  -t*  *p  ».»  V  -<*  ir»  *i-  -v  *?  '.»*.*  **  -r-  -i1  'i-  i1  v  3r  ?r  v»  'r*  -*»  1*  *r  t*  ^-  "in  *r  -v  ^r  -*r  T  *«*  t-  -i*  -i*  ~r  'p  *v  *■*  -C  *r  -r  -i%  *»*  ***  'i* 

c  *  * 

C  *  THIS     SUBROUTINE    BUILDS    THE    IARRI    ARRAY    AND, BY  * 

C  *  CALLING    THE       FUNCTION    COMP,THE     I  ARRF     ARRAY.  * 

C  *  BOTH    ARRAYS    HAVE    16    ELEMENTS    AND    REPRESENT  * 

C  *  TWO    8    BITS    WORDS.  * 

C  *  THE     ARRAY     IARRI    WILL    FINALLY    HCLD    THE    FOUR  * 

C  *  HEXADECIMAL    CHARACTERS    FOR    THE    MANTISSA    CF  * 

C  *  THE    PL/M    FLOATING    POINT    NUMBER.  * 

C  *  * 

^  a^  *r  *r  -f*  "i"  *o  t*  *r  t*  *r  *r  -r  V  i-  *-r  i*  -r  *»*  *r  *r  *r»  -r*  'r  '«"•  ^F  -i*  f  -<*  *v  t  i*  "i*  V1  *r  *v  *•*  t  *»"  s<*  *fi   *t*  *i-  *r*  *r  -v  *r»  Is  ***  ■*>*■  -A  o* 

CCMMON/ALL/     I ARR  I  (  16  )  ,  I  ARRE  (  8  )     ,  I  ARP  F  (  1  6  )  t  K  I. ,  I  MC 

IFIN=INT(X) 

PFN=X-IPIN 

KI=0 

INC  =  0 
C  INC    IS    THE    NUMBER    OF    LEADING    ZEROES    OF    THE     FRACTION. 

C  IT    WILL    BE    USEFUL     IF    THE    NUMBER     IS    LESS     THAN    1. 

DC    2    1  =  1,  16 

I/JRRI  (  I  )=0 

2  IARPF(l)=0 

IF     ( IPIN    .NE.    0)     GO    TO    7 

IF    (PFN.EQ.O.)    GO    TO    9 

IF    (PFM    .LT.     .5)     INC=1 

IF    (PFN     .LT.     .25)     INC =2 

IF    (PFN    .LT.     .125)     INC=3 

IF    ( INC.EQ.O)    GO    TO    3 

DO    8     I  =  1 ,  I  NC 
8  PFN=PFN*2. 

GC    TO    3 
7  DC    1     IJ=1,16 

KI  =  IJ 

JFIN=IPIN 

IPIN=IPIN/2 

IF    (MOD( JPIN,2).EQ.l)     IARRI(IJ)=1 

IF    (  IPIN. ECO)     GO    TO    3 
1  CCNTINUE 

C  16-KI     IS    THE     NUMBER    OF    PLACES    THAT    THE     ARRAY    IARRI 

C  HAS       TO    BE    SHIFTED. 

C  THE    VALUE    OF    THE    EXPONENT     IS    KI. 

3  DO    4    J=l,16 
KJ  =  J 

PFN  =  PFN*2  . 
A  IF(PFN.GT.l. )     PFN=COMF( PFN,KJ) 

C  SHIFT    RIGHT.    THE    ORIGIN    OF    THE    HEXADECIMAL    NUMBER    WILL 

C  BE    THE    PIGHT    SIDE. 

DC    5     1=1, KI 
5  IARRI  t  17~I)=IARR  KKI  +  l-I  ) 


58 


c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


6 

9 


1 

4 

8 

5 
6 

7 

3 


KK=16-KI 

CCMPLET 

DC    6    1  = 

IARRI  (1 

RETURN 

KI=10Q 

RETURN 

ENC 

SLEROUT 

$  *  *  £  i;.  -if.*  *  *  *  *  **  *  *  *  *  *  *  *  *  *  **  *  *  **  **  **  *  *  ^.£  #  £  *  £  *  *£  *  *  £  #*::£: 


E    THE     16    BITS    USING    THE    FRACTIONAL    PART. 
7-KI-I )=IARRF<  I) 


INE    CTHT 


THIS  SUBROUTINE  FILLS  IN  THE  BITS  IN  THE 
ARRAY  IARRE, CORRESPONDING  TO  THE  EXPONENT 
OF    THE    PL/M    FLOATING    POINT    NUMBER. 


*** 
* 
* 


CCM 

IAR 

IAR 

IF 

DC 

IAR 

IF 

DC 

KK  = 

KI  = 

IF( 

IF 

CCN 

GO 

IAR 

DC 

IAR 

GO 

GC 

IAR 

GC 

IAR 

RET 

ENC 

FUN 


*y.  +,'  3p  3QC  3p  3QC  3JC  3|C  3QC  3QE  *P  nr 

MON/ 
RE(1 

RE(2 
(  INC 
2  1  = 
RE  (I 
(KI 
1  IN 
KI 

KI/? 
MOD 
(KI. 
TINU 
TO  3 
RE(2 
6  1  = 
RE(  I 
TO  < 
TO  3 
RE  (8 
TO  3 
RE(7 
URN 


.  - 1  -  -1-  ^ ,  „-  ,. 


u*  *t,   JU  J-    -Jlf  -*f 

-r  -, •  ',-  -! -  *(*  •nr 

ALL/     IARRI(16),I 

)=0 

J  =  l 

.NE.    D)     GO    TO    4 
3,8 
)=0 

.EQ.    ICO)     GO    TO 
=  1,6 


(KK,2).EQ.l)     IARRE(9-IN)=1 

EG.O)    GO    TO    3 

E 

)=0 
3,8 
)  =  1 

5,  6,  7), INC 

)  =  0 
)=0 


jlj  w   *  »IU   jl/   J;  J,  V*  *";  *V    Ug   J-V;  jjf 

ARRE(si",  IARRFU6]  ,  KI,  INC 


CTION    TRANS(R,E,A) 


*r  *£  -v  n1  *  *v  *v   r  V?  T  'r  v  •?  v  *  ■** 


1  3QC  3jC  2 


»y»  3j»   3j»  *Jt  5J»  JOG  *«*  3J»  »■,«•  *p  ^»  ^*  ^,-.  *yC  5,*  «X  «t 


■  -   *l    ,'.   --.. 


*j.  *>-  -v  *■»  -y  »v  v.  *v 

-r  1*  -*  **"  *r  »?  «r  *> 


THIS    FUNCTION    TRANSFORMS    ELE VATI ON , A Z I MUTH 
AND    RANGE     INTO    DISTANCE    TO    TARGET. 


ALF=(A- 

S=SIN( 1 

C=SIN(7 

D=465./ 

EL=E/57 

TRANS=( 

RETURN 

END 

FL'NCTIO 


»».•  -•*•   »U  ^  ijf  ***  ***  **■*  •***   ***  ***  •**  j(j  '»A*  jj*  >**  "^  *''  5'/  V?  ifc  ***  ***  ^f  jj*  *■*•   ,*J-'  *^  l*£  ■ 

18V.)  /57I296 

,5708'ALF) 

2. 20526/37. 29o) 

(6080.*COS( ALF) ) 

.296 

R*COS(EL)-DI*S/C 


$  £ 


* 

* 

>  »V  ■•'*  *'»  «■**  ^*^  »'  • 
■  *f-  *r  1*  -v*  -r  -r 


N     IHEX(IY) 

£  ^  $  £  ##;,•;#######  jj:  ;[<  y,::^  #******  : 


.  £  #  sj:  ;}.  ^  &  j1;  ^c  5^  ^;  ^:  ^  #  If.  >'f  -if  Ji  ^ 


THIS  FUNCTION  TAKES  FOUR  ELEMENTS 
FROM  IARRI  AND  IARRE  TO  COMPUTE  T 
VALUE    OF    THE    CHARACTER. 


COMMON/ 
CIMENSI 
GC  T0( 1 
DC  7  J  = 
IAUXt J) 
GC  TO  1 
DO  8  J  = 
IAUX(.i) 
GO    TO    1 


*I_  »*,  «L>  — L,  J-  »J-  »'..  JU  »>..  *»rf  ^  >JU  ■*■  .C-  JU  ^u  »•*•  ^V  »*■*  ^  *V  ^*f  **'  T"*  ^?f  ***  *V  "V  *** 

>j*  ^t  3yK  ^t  *,+     ~i-     ^,.  * ^.  -,1.   -v^  ^*  ^|»  >,   »(*  rf^x  *|-»  *^V  ^  ^,--  .7,*  ^S  ^*  -Y«  ^»  *,*  *p  *^  --t^  ->» 

ALL/     IARRI  (16)  ,  IARREC8)     ,IARR 

ON     IAUXI4) 

,2,3,4,5,6), I Y 

1,4 

=  1  ARRK17-J) 

3 

1,4 

=IARRI(13-J> 

3 


AT 
HE    D 


F(16 


A    TIM 

ECIMA 


***** 
)  ,KI, 


E  * 

L  * 

* 

* 

3f»  'C  X*  T  1*  *(^ 

INC 


3  DC    9    J  =  l,4 

9  IAUX< J)=IARRI(9-J) 
GC    TO    13 

4  DC    10    J=l,4 

10  IAUX( J) =IARRI (5-J) 
GC    TO    13 

5  DO    11    J  =  l  ,4 

11  IAUX( J) =IARRE( J) 
GC    TO    13 

6  DC    12    J=l,4 

12  IAUX< J)=lARRE(J+4) 

13  IACUM=0 

DO    14    JM,4 

14  IF(IAUX< JI.EQ.l)     IACUM=IACUM+2**(4-J) 
IFEX=IACUM 

RETURN 

END 

FUNCTION  KHEX(IZ) 

Cwu-  V-  v,  -.<.  y,.  V-  nV  ^'  "^  -JU-  »V  -*-■  *»-  J-  jl.  o  -  «i-  J.  »v  *l  .  j-  ou  -*,.»,  **•-  *V  *  *•?  V*  **-  ^  V'  -^  «-<#  V'  V-  -/-■  V-  »y  vi»  *'...*  ^i  .  .  .'.  ->  o.  -J-  *A*  V",  »<•  »•* 
'■'  v  "  i'  -Is  i-  -V*«r*  »i-  *r»  ^-r  n*  'r*  -vc  ^r  V  '•*  'r  *fi  i*  ?r  'i*  *r  -»<■  ^  *?  'r  *v  V  *r   'r  i-n*  nr^'i-^T  nr  -r  o5  tp  "<%  '^  V  *-.*  *«*  V  'i*  *,» 

c  &  & 

C  *  THIS    FUNCTION     RETURNS    THE     PROPER    HEXADECIMAL          * 

C  *  CHARACTER    CORRESPONDING    TO    THE    DECIMAL    V4LUE     .     * 

C  *  * 

*r  *r  77  *\*  *p  ~«*  -r  *»-  *r  *r  *i*  ■"»*  '/*  'r  t-  -v  *•*  *•*  ^  *r  **  '»*  •»*  *r  -v  *v  t  *r  *r  *r*  *y*  -i^  *r  *r  *v>  *f*  -<*■  nr  T»  -r»  -%»  •><*  -r-  -i**  V  *v  t  ->~  "*-  *■-  **  T* 

CGilMCN/MAKH/IZERC,  ITWCITHREE, I  F CUR,  I  FI  V E , I S I  X, IS  EVEN i 
HEIGHT,  ININE,ITEN,IELEVNi  ITWELV , I THI RT,  I  FGUPT  ,  IF  I  FT, 
1ICNE 

KU=IZ+1 

GC    TO    <  1,2,3,4,5,6,7,8,9-10,11,  12,  13, 14, 15, 16), KU 

1  KP£X=iZER0 
GC    TO    17 

2  KFEX=I0NE 
GC    TO    17 

3  KFEX=ITWG 
GC    TO    17 

4  KFEX=ITHREE 
GC    TO    17 

5  KFEX= IFCUR 
GO    TO    17 

6  KFEX=IFIVE 
GO    TO    17 

7  KFEX=ISIX 
GO    TO    17 

8  KFEX=ISEVEN 
GC    TO    17 

9  KFEX=IEIGHT 
GC    TO    17 

10  KHEX=ININE 
GC    TO    17 

11  KFEX=!TEN 
GC    TO    17 

12  KFEX=IELEVN 
GC    TO    17 

13  KFEX=ITWELV 
GC    TO    17 

14  KhEX=I7HIRT 
GO    TO    17 

15  KFEX=IF-CURT 
GO    TO    17 

16  -KHEX=IF1FT 

17  RETURN 

END 

SLBROUTINE    STIHA(I) 
C      *#*£*^##£^##**£***:fc:;<5{c;}:  «#*#*#?:*#$*###:££**£*  :m=********* 

C  *  THIS    SUBROUTINE    FILLS    THE    PROPER    ELEMENTS    CF         * 

C  *  THE     ARRAY     IHA     WITH    THE    HEXADECIMAL    CHARACTERS       * 

C  *  THAT    STANDS    FOR    TIME.  * 

r  if.  * 

Q       fc**************^* ************************ *********** 

CCMMON/MASH/     IHA(2o) 
ISEC=MOC( 1,16) 
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KNT=I/16 

IHA(1 )=KHEX(KNT) 

IHM2)=KHEX( ISEC) 

RETURN 

END 

SLEROUTINE    SIHA(JOTA) 

C  *  THIS    SUBROUTINE    FILLS    THE     IHA    ARRAY    WITH    THE  * 

G  *  CHARACTERS    FOR    SPEED,     DIVE    ANGLE,    ALTITUDE  * 

G  *  AND    DISTANCE     TO    TARGET.  * 

C  *  * 

Q  ##  ^^*^t^*^*3|ii;:';  $$$$  ####.•:<#$  ;<r  ^  #  #  $$$$$$  $$$$$$  £  sjejjsj}!  #$$#$$$  # 

CCMMON/MASH/     IHA(26) 
C  J-2    MEANS    SPEED,     J=8    MEANS    DIVE     ANG,J=14    MEANS    ALTITUDE 

C  AND    J  =  ?0    MEANS    DISTANCE    TO    TARGET. 

DO    1     1=1,6 

IHV=IHEX(  I  ) 

KHX  =  KhEX(  IHV) 
1  IFA( I+JOTA)=KHX 

RETURN 

END 

SUBROUTINE    SPADA 

Cvi,  J.  j.  v  y.  ^«<,>u«>.u.j/a.^v,  tt  x^  ^^v.  <k  y»  -u  y,  -j.  y.,  -»v  v-  y,  »v  y*  •»"-  -4-  y-  y*  ***- »--  y-  ju  y*  -a.  ju  y-  »o  y,  .a.  *v  o-  *y  y*  y#  -JU 
V  *t-  t  *.-  *t-  *i-  *r"r  -i*  n*  'i*  *r  -v  *•*  •**■  ~  — *  *% ■  ~c  -»-  T  ^  -r*  *i  **  '<"  -r-  V  <v*  *>*  *<*■  -v  '•*  V  V  -  •  *r  •*•*  -v  -<x  *r*  *<*  ***  *r*  -v  -v  *v*'V  '•*■  Ji»  *-*  *.* 
c  *  * 

C  *         THIS     SUBROUTINE    COMPUTES    SPEED    AND    DIVE     ANGLE.    * 

C  *  * 

Co,  »i,  - .  y,  o»  y.  v  y-  »<-  y*  yf  y>  *>  j-  ^  -  y*  ■*•-  **-  ■>•-  -Jr  -J?  -*-  J-  »v  %v  yf  •»■-  J-  v-  ye  y*  y    y-  y-  y,  »«-  »<-  y>  y-  y*  *v  y>  -V  o*  *<.  yf  yu  y-  y*  &  «/-  ^u 
*r  f  "r  *v  *i*  "i-  *\-  t  »i*  i*  *»*  -v  -■*  'i  •  'i*  t*  *r*  'i*  *.*  ^r  -nr1  *•*  *\~  -i*  ',"•  **  '»*  »«»  *i*  *»*■  "i"  *r  *r  v  *r  ",>  •*»*  *v  o*  -*i*  •t*  **r  ■*r  *i*  •*<*  *r*  or  *>*  'Y*  a*  t-  *r* 

COMMON/MASD/SALT, SXAT, FALT , FXAT 

CCKM0N/-6CT/VKTS,  ALT,DEG,YT,  IDNO 

SF=SALT-FALT 

DALT-ABS(SF)/6080. 

DXAT-C  SXAT-rXAT)  /2000. 

DFAN  =  SQRT(DALT=!:DALT+DXATvDXAT) 

VKTS=DRAN*3600. 

C£X=DALT/DXAT 

DEG=ATAN(DAX)*57,296 

IF     (SALT. GT. FALT)     DEG=-DEG 

RETURN 

END 
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RUN  l: 

INPUT  DATA: 

CODED  OCTAL 

DIGITS 

CONVERSION  TO  DEC 

IMAL: 

ELEVATION 

AZIMUTH 

RANGE 

ELEVATION 

AZIMUTH 

RANGE 

DEGREES 

DEGREES 

YARDS 

11401 

104206 

5305 

26.7 

192.0 

5514.0 

11342 

104374 

5137 

26.6 

192.6 

5310.0 

11264 

104574 

4771 

26.3 

193.3 

5106.0 

112C7 

105013 

4611 

2o.l 

194.  1 

4882.0 

11131 

105254 

4440 

25.8 

195.0 

467  2.0 

11046 

105534 

4261 

25.5 

196.0 

4450.0 

10762 

106C40 

4104 

25.2 

197.1 

4232.0 

10674 

106374 

3722 

24.9 

198.3 

4004.0 

10604 

106772 

3  540 

2*t.6 

199.7 

3776.0 

10510 

1C7435 

3356 

24.3 

2  01.3 

3548.0 

10444 

107677 

3266 

24.1 

202.  1 

3436.0 

10434 

107740 

3253 

24.1 

202.3 

3414.0 

10424 

110002 

3241 

24.0 

202.5 

3394.0 

10415 

110046 

3227 

24.0 

202.7 

3374.0 

10404 

110111 

3213 

23.9 

202.9 

3250.0 

10374 

110156 

3202 

23.9 

203.1 

3332.0 

10365 

110221 

3166 

23.8 

203.3 

3308.0 

10356 

110270 

3151 

23.8 

203.5 

3282.0 

10347 

110340 

3140 

23.8 

203.7 

3264.0 

10337 

110411 

3123 

23.7 

204.0 

3238. G 

10324 

110461 

3110 

23.  7 

204.2 

3216.0 

10311 

110525 

3074 

23.6 

204.4 

3192. 3 

10276 

110572 

3060 

23.5 

204.6 

316  8.0 

10264 

110636 

3044 

23.5 

204.8 

3144.0 

10252 

UC705 

3033 

23.4 

205.0 

3126.0 

10240 

11C756 

3015 

23.4 

205.2 

3C9  6.0 

10225 

111027 

300  2 

23.3 

205. 4 

3C76.0 

10212 

111100 

2766 

23.3 

205.7 

3052.0 

10177 

11  1153 

2754 

23.2 

205. 9 

3032.0 

10165 

111226 

2742 

23.1 

206.1 

3012.0 

10151 

111302 

2727 

23.1 

206.4 

299C.0 

10136 

111360 

2714 

23.0 

206.6 

2968.0 

10123 

111436 

2703 

23.0 

206.9 

2950.0 

10111 

111515 

2663 

22.9 

207.1 

2918.0 

10C77 

111574 

2650 

22.8 

207.4 

2696. 0 

10066 

111656 

2640 

22.8 

207.7 

2680.0 

10053 

111734 

2624 

22.  7 

207.9 

2856.0 

10037 

112013 

2611 

22.7 

208.  2 

2834.0 

1C023 

112C76 

2574 

22.6 

208. 5 

2808.0 

10006 

112161 

2563 

22.5 

208.7 

2790.0 
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SMOOTHED    DATA    FOR    THE 

PL/M    PROGRAM. 

TIKE 

SPEED 

DIVE    ANG 

ALT. 

DIST    TO 

TARGET 

SEC. 

KNOTS 

DEGREES 

FEET 

YARDS 

0.0 

0.0 

C.C 

7549.4 

4148.9 

1.0 

39  8.0 

-30.5 

7207.3 

3953.5 

2.0 

406.8 

-29.9 

6865.5 

3762.6 

3.0 

415.2 

-29.3 

6  52  2.3 

3561.4 

4.0 

423.4 

-28.8 

6178.3 

3355.3 

5.0 

431.  1 

-28.3 

5333. 3 

3144.3 

6.0 

438.5 

-27.8 

5467.4 

2928.9 

7.0 

445.5 

-27.5 

51^0.5 

2709.3 

8.0 

452.1 

-27.1 

4792.5 

2485.8 

9.0 

458.4 

-26.8 

4443.4 

2253.5 

9.5 

46  2.8 

-26.6 

4268.4 

2143.5 

9.6 

464.5 

-26.5 

4233.4 

2120.4 

9.7 

465.1 

-26.5 

4198.4 

2097.3 

9.8 

465.6 

-26.5 

4163.3 

2074.2 

9.9 

466.2 

-26.4 

4123.3 

2051.0 

10.0 

466.  7 

-26.4 

409  3.2 

2027.8 

10.1 

467.3 

-26.4 

4053.1 

2004.5 

10.2 

467.8 

-26.4 

4023.0 

1981.2 

10.3 

468.3 

-26.4 

3937.9 

1957.9 

10.4 

468.9 

-26.? 

3952.8 

1934.6 

10.5 

469.4 

-26.3 

391  7.6 

1911.2 

10.6 

469.9 

-26.3 

3882.5 

1887.8 

10.7 

470.4 

-26.3 

3347.3 

1364. 3 

10.8 

471.0 

-26.2 

3612.1 

1640.9 

10.9 

471.5 

-26.2 

3  776.9 

181 7.4 

11.0 

472.0 

-26.2 

3  741.7 

1793.9 

11.1 

472.5 

-26.2 

3706.5 

1770.3 

11.2 

4  73.  C 

-26.2 

3671.3 

1746.7 

11.3 

473.5 

-26.1 

3636, 1 

1723.1 

11.4 

474.0 

-26.1 

360 0.8 

1699.5 

11.5 

474.5 

-26.1 

3565.5 

1675.8 

11.6 

474.9 

-26.1 

3530. i 

1652.1 

11.7 

475.4 

-26.1 

3495.0 

1628.4 

11.8 

475.9 

-26.1 

3459.7 

1604.6 

11.9 

476.4 

-26.0 

3424.3 

1530. 3 

12.0 

476.9 

-26.0 

3389.0 

1557.0 

12.1 

477.3 

-26.0 

3353. 7 

1533.2 

12.2 

477.8 

-26.0 

3318.3 

1509.3 

12.3 

478.2 

-26.0 

3232.9 

1485.5 

12.4 

478.7 

-26.0 

3247.6 

1461.5 
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PL/M    FLOATING    PCINT    NUMBERS: 


TIME 

SPEED 

DIVE  i 

\NG 

ALTITUDE 

OIST  TO  TARGE 

T 

SEC. 

KNOTS 

DEGREI 

=  S 

FEET 

YARDS 

00 

00 

00 

40 

00 

CO 

40 

EB 

EB 

40 

81 

A7 

4D 

OA 

C6 

FA 

49 

F4 

62 

C5 

El 

3E 

4D 

F7 

68 

4C 

14 

CB 

62 

49 

EF 

21 

C5 

D6 

8B 

40 

EB 

29 

4C 

IE 

CF 

9E 

49 

EA 

62 

C5 

CB 

D2 

40 

DE 

97 

4C 

2d 

03 

AC 

49 

E6 

18 

C5 

CI 

1  I 

40 

01 

84 

4C 

32 

07 

3D 

49 

E2 

3C 

C5 

B6 

4A 

40 

C4 

85 

4C 

3C 

DB 

3E 

49 

DE 

C4 

C5 

AB 

76 

4D 

B7 

OF 

4C 

46 

DE 

BE 

49 

DB 

A8 

C5 

AO 

A3 

40 

A9 

55 

4C 

50 

E2 

OE 

49 

D8 

E4 

C5 

95 

C4 

4D 

9B 

5C 

4C 

5A 

E5 

2C 

49 

Do 

70 

C5 

8A 

D3 

40 

80 

27 

4C 

5F 

E7 

63 

49 

D4 

C8 

C5 

85 

63 

40 

65 

F8 

4C 

60 

E8 

3D 

49 

D4 

29 

C5 

64 

43 

40 

84 

87 

4C 

61 

E8 

38 

49 

04 

00 

C5 

83 

32 

40 

83 

15 

4C 

62 

EO 

CD 

49 

D3 

C4 

C5 

32 

1A 

40 

81 

A2 

4C 

63 

E9 

15 

49 

D3 

97 

C5 

81 

02 

40 

80 

2F 

4C 

64 

E9 

59 

49 

D3 

61 

C5 

FF 

02 

4C 

FD 

73 

43 

65 

E9 

AO 

49 

D3 

3b 

C5 

FD 

Al 

4C 

FA 

90 

4B 

66 

E9 

E5 

49 

D3 

07 

C5 

FB 

6F 

4C 

F7 

A7 

4B 

67 

EA 

2B 

49 

D2 

D8 

C5 

F9 

3E 

4C 

F4 

BO 

4B 

68 

EA 

6F 

49 

D2 

AA 

C5 

F7 

OC 

4C 

Fl 

02 

4B 

69 

EA 

32 

49 

D2 

7E 

C5 

F4 

09 

4C 

EE 

E6 

43 

6A 

EA 

F5 

49 

D2 

51 

C5 

F2 

A7 

4C 

E6 

F9 

4B 

6B 

E8 

38 

49 

D2 

25 

C5 

FO 

74 

4C 

E9 

OB 

43 

6C 

EB 

7A 

49 

Dl 

FA 

C5 

EE 

41 

4C 

E6 

1C 

43 

60 

EB 

3C 

49 

Dl 

DO 

C5 

EC 

OE 

4C 

E3 

2C 

4B 

6E 

EB 

FD 

49 

Dl 

A5 

C5 

E9 

03 

4C 

EO 

3B 

4B 

6F 

EC 

3D 

49 

01 

7D 

C5 

E7 

A3 

4C 

on 

49 

48 

70 

EC 

7E 

49 

01 

54 

C5 

F5 

74 

4C 

DA 

57 

46 

71 

EC 

3E 

49 

Dl 

2C 

C5 

E3 

40 

4C 

07 

63 

46 

72 

EC 

FD 

49 

Dl 

05 

C5 

El 

OC 

4C 

04 

6E 

4B 

73 

ED 

3B 

49 

DO 

DF 

C5 

DE 

0  8 

4C 

01 

79 

43 

74 

ED 

79 

49 

DO 

BA 

C5 

DC 

A4 

4C 

CE 

33 

43 

75 

ED 

B7 

49 

CO 

94 

C5 

DA 

6F 

4C 

CB 

83 

43 

76 

ED 

F4 

49 

DO 

bF 

C5 

D8 

3  A 

4C 

C3 

93 

4B 

77 

EE 

31 

49 

DO 

46 

C5 

06 

05 

4C 

C5 

9  A 

43 

78 

EE 

6D 

49 

00 

28 

C5 

D3 

DO 

4C 

C2 

Al 

4B 

79 

EE 

A8 

49 

DO 

Ob 

C5 

Dl 

9A 

4C 

BF 

A6 

4B 

7A 

EE 

E3 

49 

CF 

E4 

C5 

CF 

65 

4C 

BC 

AA 

4B 

76 

EF 

ID 

49 

CF 

C2 

C5 

CD 

2F 

4C 

69 

AE 

4B 

7C 

EF 

58 

49 

CF 

Al 

C5 

CA 

F9 

4C 

56 

61 

4B 
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RUN  2: 

INPUT  DATA: 

CODED  OCTAL 

DIGITS 

ELEVATION 

AZIMUTH 

RANGE 

13621 

103634 

5333 

13543 

103710 

5177 

13460 

1C4056 

5045 

13365 

104255 

4706 

13311 

104464 

4540 

13227 

104732 

4377 

13140 

105175 

4227 

13025 

105510 

4060 

12703 

106051 

3713 

12555 

106444 

•  3532 

12500 

106664 

3446 

12467 

106722 

3431 

12456 

106755 

2422 

12446 

1070H 

3406 

12436 

107C43 

3372 

12426 

107101 

3357 

12416 

107141 

3345 

12403 

107203 

33  26 

12367 

107243 

3320 

12353 

107301 

3303 

12341 

107341 

3267 

12330 

107402 

3256 

12320 

107446 

3245 

12  310 

1C  7511 

3231 

12277 

107555 

3214 

12267 

1C7620 

3202 

12256 

10  7  663 

3165 

12246 

107726 

3160 

12236 

1C7773 

3145 

12225 

110043 

3123 

12214 

110115 

3114 

12203 

110166 

3076 

12172 

110235 

3062 

12161 

110305 

3050 

12150 

110356 

3036 

12141 

110431 

3023 

12131 

11C504 

3010 

12121 

11C557 

2777 

12111 

11C634 

2761 

12102 

110711 

2753 

CONVERSION  TO  DECIMAL: 
ELEVATION  AZIMUTH  RANGE 
DEGREES    DEGREES  YARDS 


33.1 

32.9 
32.6 
32.3 
32.0 
31.8 
31.5 
31.1 
30.6 
30.1 
29.9 
29.8 
29.8 
29.7 
29.7 
29.7 
29.6 
29.5 
29.5 
29.4 
29.4 
29.3 
29.3 
29.2 
29.2 
29.1 
29.1 
29.0 
29.0 
28.9 
28.9 
28.8 
28.8 
28.  7 
28.  7 
28.  7 
28.6 
28.6 
28.5 
28.5 


190.  7 

5558.0 

190.9 

5374.0 

191.5 

5194.0 

192.2 

5004,0 

192.9 

4803.0 

193.9 

4606.0 

194.8 

4398*0 

195.9 

4192.0 

197.1 

3990.0 

19S.5 

3764.0 

199.3 

366C.0 

199.4 

3b34.0 

199.6 

362C.0 

199.7 

3596.0 

199.9 

3572.0 

200.0 

3550.0 

200.2 

3530.0 

200.4 

350C.0 

200.6 

34b3.0 

200.3 

3462.0 

200.9 

3436.0 

201.1 

34  2  0.0 

201.3 

340  2.0 

201.5 

3378.0 

201.7 

335  2.0 

201.9 

3332.0 

202.1 

3306.0 

202.3 

3296.0 

202.5 

3  2  7  4.0 

202.7 

3  2  3  8.0 

202.9 

3224.0 

203.2 

3195.0 

203.4 

3172.0 

203.6 

3152.0 

203.8 

3132.0 

204.0 

3110.0 

204.3 

303  3.0 

204.5 

307  0.0 

204.8 

3042.0 

205.0 

3030.0 
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SMOOTHED  DATA  FOR  THE  PL/M  PROGRAM. 


TINE 

SPEED 

DIVE  ANG 

ALT. 

DIST  TO  TARGET 

SEC. 

KNCTS 

DEGREES 

FEET 

YAROS 

0.0 

0.0 

0.0 

9225.4 

3896.0 

1.0 

343.6 

-37.0 

3876.3 

3743.5 

2.0 

355.2 

-37.2 

8513.7 

3586. 3 

3.0 

366.5 

-3  7.2 

6139.5 

3424.1 

4.0 

377.5 

-37.1 

7755.3 

3  256.7 

5.0 

388.1 

-36.8 

7362.9 

3064.0 

6.0 

398.4 

-36.  H 

6964.1 

2905.8 

7.0 

408.4 

-35.8 

6560.6 

2721.8 

8.0 

418.1 

-35.1 

6154.1 

2531.9 

9.0 

427.6 

-34.4 

5  746.5 

2  33  5.8 

9.5 

434.6 

-33.7 

5542.7 

2235.4 

9.6 

43  7.4 

-33.5 

5502.0 

2215.1 

9.7 

438.3 

-33.4 

5461.3 

2  194.8 

9.8 

439.  2 

-33  .3 

5420.6 

2174.4 

9.9 

440.  1 

-33.2 

5379.9 

2153.9 

10.0 

441. C 

-33.1 

5339.3 

213  3.4 

10.1 

441.9 

-33.0 

5298.7 

2112.8 

10.2 

442.8 

-32.9 

5258.1 

2092.1 

10.3 

443.6 

-3  2.8 

5217.5 

2071.4 

10.4 

444.  7 

-32.7 

5177.0 

2050.6 

10.5 

44  5.6 

-2<L,b 

5136.5 

2029.3 

10.6 

446.5 

-32.5 

5096.0 

2003.8 

10.7 

447.4 

-32.4 

50  5  5. 5 

1987.8 

10.8 

448.3 

-32.3 

5015.1 

1966.8 

10.9 

449.2 

-32.2 

4974.7 

1945.6 

11  .0 

450.  1 

-32.0 

4934.  <+ 

1924.5 

11.1 

451.0 

-31.9 

4694. 1 

1903.2 

11.2 

451.9 

-31.8 

4853.6 

1881 .9 

11.3 

452.8 

-31.7 

4813.6 

1860.5 

11.4 

453.7 

-31.6 

4773.5 

1839.0 

11.5 

454.6 

-31.5 

4733.3 

1317.5 

11.6 

455.5 

-3  1.4 

4693.3 

1795.9 

11.7 

456.4 

-31.3 

4653.2 

1774.2 

11.8 

4  5  7.3 

-31.2 

4613.3 

17  52.5 

11.9 

458.2 

-31.1 

4573.4 

1730.7 

12.0 

459.1 

-30.9 

4533.5 

1706.8 

12.1 

460. C 

-30.8 

4493.7 

1686.8 

12.2 

460.  9 

-30.7 

4453.9 

1664. 8 

12.3 

461.8 

-30.6 

4414.3 

1642.7 

12.4 

462.7 

-30.5 

4374.6 

1620.6 
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PL/M    FLOATING    PCINT    NUMBERS: 


TIME 

SPEED 

DIVE  ANG 

ALTITUDE 

DIST  TO  TAPsGET 

SEC. 

KNOTS 

DEGREES 

FEET 

YARDS 

00 

00 

00 

40 

00 

00 

40 

90 

25 

4E 

F3 

80 

4C 

OA 

A8 

CF 

49 

S3 

F2 

C6 

3  A 

Bl 

4E 

E9 

F8 

4C 

14 

Bl 

9F 

49 

94 

88 

Cb 

35 

06 

4E 

EO 

24 

4C 

IE 

B7 

42 

49 

9<* 

CA 

Co 

FE 

58 

40 

06 

01 

4C 

28 

BC 

BB 

49 

94 

36 

C6 

F2 

5A 

40 

C3 

3B 

4C 

32 

C2 

08 

h9 

93 

17 

C6 

E5 

17 

40 

CO 

CO 

4C 

3C 

C7 

2E 

49 

91 

69 

Co 

D9 

AO 

4D 

B5 

9C 

4C 

46 

cc 

?E 

49 

8F 

3A 

C6 

CD 

04 

40 

AA 

1C 

4C 

50 

Dl 

OB 

49 

8C 

94 

C6 

CO 

51 

4D 

9E 

3E 

4C 

5A 

05 

CA 

49 

89 

7C 

C6 

B3 

93 

4D 

91 

FC 

4C 

5F 

D9 

49 

49 

36 

E7 

C6 

AD 

35 

4D 

8B 

B6 

4C 

60 

DA 

AD 

49 

85 

DO 

C6 

AB 

EF 

4D 

8A 

72 

4C 

61 

DB 

22 

49 

85 

70 

C6 

AA 

AA 

40 

89 

2C 

4C 

62 

DB 

97 

49 

65 

OD 

C6 

A  9 

64 

40 

87 

E6 

4C 

63 

DC 

DC 

49 

84 

A3 

C6 

A3 

IF 

4D 

86 

9E 

4C 

64 

DC 

82 

49 

34 

49 

C6 

A6 

DA 

4D 

85 

56 

4C 

65 

DC 

F5 

49 

83 

E2 

C6 

A5 

9  5 

4D 

84 

OC 

4C 

66 

DD 

6A 

49 

83 

7D 

C6 

A4 

50 

4D 

52 

C2 

4C 

67 

DO 

El 

49 

83 

1C 

C6 

A3 

or. 

40 

81 

76 

4C 

63 

DE 

55 

49 

82 

32 

C6 

Al 

C7 

4D 

80 

29 

4C 

69 

DE 

C8 

49 

62 

49 

C6 

AO 

63 

4D 

FD 

83 

4B 

6A 

DF 

3D 

49 

81 

E3 

C6 

9F 

3F 

4D 

FB 

1A 

43 

6B 

DF 

Bl 

49 

81 

77 

C6 

9D 

FC 

4D 

F8 

7A 

43 

6C 

EO 

24 

49 

81 

OD 

C6 

9C 

B8 

40 

F5 

D3 

4B 

60 

EO 

9A 

49 

80 

AO 

C6 

9B 

75 

4D 

F3 

34 

4B 

6E 

El 

08 

49 

80 

2F 

C6 

9A 

33 

40 

FO 

8E 

4B 

6F 

El 

30 

49 

FF 

8D 

C5 

98 

FO 

40 

ED 

E6 

4B 

70 

El 

Fl 

49 

FE 

A9 

C5 

97 

AE 

4D 

EB 

3B 

4B 

71 

E2 

68 

49 

FD 

D5 

C5 

96 

6C 

4D 

E3 

3E 

43 

72 

E2 

09 

49 

FC 

EC 

C5 

95 

2B 

4D 

E5 

EO 

4B 

73 

E3 

4C 

49 

FC 

09 

C5 

93 

Ea 

4D 

E3 

2F 

4B 

74 

E3 

BE 

49 

FB 

?? 

C5 

92 

AA 

40 

EO 

7B 

48 

75 

E4 

33 

49 

FA 

3F 

C5 

91 

69 

40 

DD 

C6 

43 

76 

E4 

A4 

49 

F9 

54 

C5 

90 

2A 

40 

DB 

OE 

4B 

77 

E5 

17 

49 

F8 

68 

C5 

8E 

EA 

40 

08 

54 

4B 

73 

E5 

8A 

49 

F7 

7E 

C5 

8D 

AB 

4D 

D5 

98 

48 

79 

E5 

FE 

49 

F6 

93 

C5 

8C 

60 

40 

D2 

DA 

4B 

7A 

E6 

6F 

49 

F5 

9F 

C5 

8B 

2F 

4D 

DO 

1A 

43 

7B 

E6 

E3 

49 

F4 

BO 

C5 

89 

F? 

40 

CO 

57 

43 

7C 

E7 

56 

49 

F3 

BD 

C5 

88 

35 

4D 

CA 

92 

4B 
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RUN    3: 

SMOOTHED    DATA    FCR    THE     PL/M    PROGRAM 


TIME 

SPEED 

DIVE    ANG 

ALT. 

DIST    TO 

SEC. 

KNCTS 

DEGREES 

FEET 

YARDS 

0.0 

0.0 

0.0 

2000.0 

3699.4 

1.0 

300.0 

0.0 

2000.0 

3532.7 

2.0 

300.0 

0.0 

2000.0 

3356. 0 

3.0 

300.0 

CO 

2000.0 

3199.4 

4.0 

300.0 

0.0 

200  0.0 

3032.  7 

5.0 

300.0 

0.0 

2000.0 

2866.0 

6.0 

300.0 

CO 

2000.0 

2699.4 

7.0 

300.0 

0.0 

2000.0 

2532.7 

8.0 

300.0 

0.0 

2000.0 

2366.0 

9.0 

300.0 

0.0 

2000.0 

2199.4 

9.5 

300.0 

CO 

2000.0 

2116.0 

9.6 

300.0 

0.0 

2000.0 

2099.4 

9.7 

300.0 

0.0 

2000.0 

2082.7 

9.8 

300.0 

CO 

2000.0 

2066.0 

9.9 

300.0 

0.0 

2CC0.0 

2  049.4 

10.0 

300.0 

0.0 

2C00.0 

2032.7 

10.1 

300.0 

CO 

2000.0 

2016.0 

10.2 

300.0 

CO 

2000.0 

1999.4 

10.3 

300.0 

CO 

2000.0 

1982.7 

10.4 

300.0 

0.0 

2000.0 

1966.0 

10.5 

3  00.0 

CO 

200  0.0 

1949.4 

10.6 

300.0 

0.0 

2000.0 

1932. 7 

10.7 

300. C 

0.0 

2000.0 

1916.0 

10.8 

300.0 

CO 

2000.0 

1899.4 

10.9 

300.0 

CO 

2000.0 

1882.7 

11.0 

300. C 

CO 

2000.0 

1866.0 

11.  1 

300.0 

CO 

2000.0 

1849.4 

11.2 

300.0 

CO 

2000.0 

1832. 7 

11.3 

300.0 

CO 

2000.0 

1816.0 

11.4 

300.0 

CO 

2000.0 

1799.4 

11.5 

3  00.0 

CO 

2000.0 

1782.7 

11.6 

300.0 

CO 

2000.0 

1766.0 

11.7 

300. C 

CO 

2000.0 

1749.4 

11.8 

300.0 

CO 

2  000.0 

1732.7 

11.9 

300.0 

CO 

2000.0 

1716.0 

12.0 

300. C 

CO 

2000.0 

1699.4 

12.1 

300.0 

0.0 

200  0.0 

1699.4 

12.2 

300.0 

0.0 

2000.0 

1666.0 

12.3 

300. C 

CO 

2000.0 

1649.4 

12.4 

300.0 

CO 

2000.0 

1632.7 

TARGET 
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PL/M    FLOATING    PCINT    NUMBERS: 


TINE 

SPEED 

DIVE  ANG 

ALTITUDE 

DIST  ■ 

m  TARGET 

SEC. 

KNOTS 

DEGRE 

ES 

FEET 

YARDS 

00 

00 

OC 

40 

00 

00 

40 

FA 

00 

48 

E7 

35 

4C 

OA 

96 

0  0 

49 

00 

00 

40 

FA 

00 

48 

DC 

CB 

4C 

14 

96 

00 

49 

00 

00 

40 

FA 

00 

43 

02 

60 

4C 

IE 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

C7 

F5 

4C 

23 

96 

00 

49 

CO 

00 

40 

FA 

00 

48 

BD 

83 

4C 

32 

96 

00 

49 

CO 

00 

40 

FA 

00 

4B 

83 

20 

4C 

3C 

96 

00 

49 

CO 

00 

40 

FA 

00 

4B 

A3 

85 

4C 

46 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

9E 

43 

4C 

50 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

93 

EO 

4C 

5A 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

89 

75 

4C 

5F 

96 

00 

49 

00 

00 

40 

FA 

00 

4D 

84 

40 

4C 

60 

96 

OC 

49 

00 

00 

40 

FA 

00 

48 

33 

35 

4C 

61 

96 

00 

49 

CO 

00 

40 

FA 

00 

4B 

QZ 

2B 

4C 

62 

9b 

OC 

49 

00 

00 

40 

FA 

00 

48 

81 

20 

4C 

63 

96 

00 

49 

00 

OC 

40 

FA 

00 

4B 

30 

15 

4C 

64 

96 

00 

49 

00 

00 

40 

FA 

oo 

4B 

FE 

16 

43 

65 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

FC 

00 

43 

66 

96 

00 

49 

CO 

00 

40 

FA 

00 

48 

F9 

EB 

4B 

67 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

F7 

D6 

43 

68 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

F5 

CO 

4B 

69 

96 

00 

49 

CO 

00 

40 

FA 

00 

4B 

F3 

A6 

4B 

6A 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

Fl 

96 

4B 

6D 

96 

00 

49 

00 

CO 

40 

FA 

00 

4B 

EF 

81 

48 

6C 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

ED 

68 

4B 

60 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

E6 

56 

4B 

6E 

96 

00 

49 

00 

CO 

40 

FA 

00 

48 

E9 

41 

46 

6F 

96 

00 

49 

00 

00 

40 

FA 

00 

4B 

E7 

28 

43 

70 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

E5 

16 

4B 

71 

96 

00 

49 

CO 

00 

40 

FA 

00 

46 

E3 

01 

4B 

72 

96 

OC 

49 

00 

00 

40 

FA 

00 

4B 

EO 

EB 

43 

73 

96 

00 

49 

CO 

00 

40 

FA 

00 

43 

OE 

D6 

43 

74 

96 

00 

49 

00 

CO 

40 

FA 

00 

48 

DC 

CI 

48 

75 

96 

00 

49 

CO 

00 

40 

FA 

00 

48 

DA 

AB 

43 

76 

96 

00 

49 

CO 

CO 

40 

FA 

00 

4B 

D8 

96 

4B 

77 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

06 

81 

4B 

78 

96 

00 

49 

CO 

00 

40 

FA 

00 

43 

D4 

68 

48 

79 

96 

00 

49 

00 

00 

40 

FA 

00 

48 

D4 

68 

4B 

7A 

96 

00 

49 

00 

00 

40 

FA 

CO 

48 

DO 

41 

4B 

7B 

96 

00 

49 

CO 

00 

40 

FA 

00 

4B 

CE 

28 

43 

7C 

96 

00 

49 

00 

00 

40 

FA 

00 

4B 

CC 

16 

4B 
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RUN    4: 


SMOOTHED    DATA    FCR    THE    PL/M    PROGRAM. 


TIME 

SPEED 

DIVE  ANG 

ALT. 

DIST  TO 

TARGET 

SEC. 

KNOTS 

DEGREES 

FEET 

YARDS 

0.0 

0.0 

0.0 

4451.7 

5223.2 

1.0 

450.0 

-10.0 

4319.7 

4982.0 

2.0 

450. C 

-ICO 

4187.7 

4735.8 

3.0 

450.0 

-10.0 

4055.8 

4489.6 

4.0 

450.0 

-10.0 

3923.8 

4243.4 

5.0 

4  5  0 .  C 

-10.0 

3791.8 

3997.2 

6.0 

450.  C 

-10.0 

3659.8 

3751.0 

7.0 

-450.0 

-10. 0 

3527.9 

3  504.8 

8.0 

450.0 

-10.0 

3395.9 

3253.6 

9.0 

450.0 

-10.0 

3263.9 

3012.4 

9.5 

450.0 

-10.0 

3198.0 

2  889.3 

9.6 

450.  C 

-ICO 

3134.8 

2864.7 

9.7 

450.  G 

-10. 0 

3171.6 

2840.  1 

9.8 

45  0.0 

-10.0 

3153.4 

2815.4 

9.9 

450. C 

-  10. 0 

3145.2 

2790.8 

10.0 

450.0 

-10.0 

3132.0 

2766. 2 

10.1 

450.0 

-10.0 

3118.8 

2741  .6 

10.2 

450. C 

-10.0 

3105.6 

2717.0 

10.3 

450.0 

-10.0 

3092.4 

2692.3 

10.4 

450.0 

-10.0 

3C79.2 

2667.7 

10.5 

450.0 

-10.0 

3066.0 

2643, 1 

10.6 

450.0 

-10.0 

3052.8 

2618.5 

10.7 

45  0.  C 

-10.0 

3039.6 

2593.9 

10.8 

450.0 

-10.0 

3026.4 

2569. 2 

10.9 

45  0.0 

-10.0 

3013.2 

2544.6 

11.0 

45  0.0 

-  10.0 

3000.0 

2520.0 

11.1 

45  0.0 

-10.0 

2986. S 

2495.4 

11.2 

450.0 

-10.0 

2973.6 

2470.8 

11.3 

450.0 

-10. 0 

2960.4 

2  446.  1 

11.4 

450.0 

-10.0 

2947.2 

2421.5 

11.5 

450.0 

-  10.0 

2934.0 

2396.9 

11  .6 

450.0 

-10.0 

2920.8 

2372.3 

11.7 

450.0 

-10.0 

2907.6 

2  347.7 

11.8 

450. C 

-10.0 

2  894.4 

2323.0 

11.9 

450.0 

-10.0 

2881.2 

2298.4 

12.0 

450.0 

-10.0 

2868.0 

2273.8 

12.1 

450.  C 

-10.0 

2854.8 

2  249.2 

12.2 

450.0 

-10.0 

2841.6 

2224.6 

12.3 

450. C 

-10.0 

2828.4 

2199.9 

12.4 

450.0 

-10.0 

2815.2 

2175.3 
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PL/M    FLOATING    PCINT    NUMBERS: 


TIME 

SPEED 

DIVE  ANG 

ALTITUDE 

DIST  TO  TARGET 

SEC. 

KNOTS 

DEGREi 

z  S 

FEET 

YARDS 

00 

00 

00 

40 

CO 

00 

40 

8B 

ID 

40 

A3 

61 

40 

OA 

El 

00 

49 

AO 

00 

C4 

86 

FD 

40 

96 

30 

40 

14 

El 

00 

49 

AO 

00 

C4 

82 

DD 

4D 

93 

FE 

4D 

IE 

El 

00 

49 

AO 

00 

C4 

FD 

7C 

4C 

8C 

4C 

4D 

28 

El 

00 

49 

AO 

00 

C4 

F5 

3C 

4C 

84 

9B 

4D 

32 

El 

00 

4,9 

AO 

OC 

C4 

EC 

FD 

4C 

F9 

D3 

4C 

3C 

El 

00 

49 

AO 

00 

C4 

E4 

3D 

4C 

EA 

70 

4C 

46 

El 

00 

49 

AO 

00 

C4 

DC 

7E 

4C 

DB 

OC 

4C 

50 

El 

00 

49 

AO 

CO 

C4 

D4 

3E 

4C 

CB 

A  9 

4C 

5A 

El 

0  0 

49 

AO 

00 

C4 

CB 

FF 

4C 

BC 

46 

4C 

5F 

El 

00 

49 

AO 

00 

C4 

C7 

OF 

4C 

B4 

94 

4C 

60 

El 

00 

49 

AO 

00 

C4 

C7 

OC 

4C 

B3 

OA 

4C 

61 

El 

00 

49 

AO 

00 

C4 

C6 

36 

4C 

81 

80 

4C 

62 

El 

00 

49 

AO 

00 

C4 

C5 

65 

4C 

AF 

F7 

4C 

63 

El 

CO 

49 

AO 

00 

C4 

C4 

92 

4C 

AE 

6D 

4C 

64 

El 

00 

49 

AO 

00 

C4 

C3 

BF 

4C 

AC 

E3 
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APPENDIX  B 


THE  EXTRAPOLATING  TESTING  PROGRAM  AND  OUTPUT 


This  appendix  shows  the  program  that  was  used  to  test 
the  extrapolation  routine  on  the  System  /360,  together  with 
its  output. 

The  data  used  in  this  program  is  the  same  used  in  the 
PL/M  implementation. 
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C  *  PROGRAM    TQ    TEST    THE    EXTRAPOLATION    ROUTINE  * 

C  *  AND    THE    SEARCH    FOR    THE    RELEASE       POINT  * 

C  *         DTT:     DISTANCE    TO    TARGET    IN    YARDS  * 

C  *  DRT:     DOWN    RANGE    TRAVEL     IN    YARDS  * 

C  *  * 

CV  .«.  ..  ,.  o,  -J,  -'  %V  o,  -,v-j,  J.,1-  x  j-x  J,  .i,j,  .!■.'.  j,  ^,ti,  y-  .i.,u  ^  j,  o,  j,  j.  j.  ^i.  4l  j.  o.  j,  *  ,1,0,0,  «fc,  -Jf  «V  -V  *i-  «J>  »C.  *U  J- 
**r  *,*  *v  ^i*  *»-  "»*  ***  *t*  T  *t*  *v*  *■»*  t*  **•  *-*•  *»*  n*  "p-  *•*  *v-  *v  iv  f-  a*  n*1  *&■  t-  -v  *r  *v  n*  -t*  -jt  *»-  ^^  "i*-  "V  *r  -v  *r  -r  -k*  ^p  *t*  ^l  ***  ■*>  **r  n^  'r  */"  *v 

CCMMON/TAD/T,X 

CCMMON/ACT/VKTS, ALT,DEG,YT,  IDNO 

CCMMGN/TIM/P.TIME(4>  ,DP0(4)  , DTT(4) 

DIMENSION    VEL(4) ,DIV(4),ALA(4) 

DIMENSION       TIME  (40) ,VELOC(40) , D I VE ( 40 ) , ALT  I T( 40 ) 

DIMENSION      XACC40J ,0RT(40) 

YT  =  0. 

ICNG=LO 

WRITE(6,10) 

DC    20     IRUN=1,4 

WRITE(6t10) 

10  FORMAT ( « 1' ) 
WRITE(6,30) 

30       FCRMATI /////) 

WRITE(6t9) IRUN, IDNO 
9         FCBMAT(12X,     'RUN    NUMBER', 1 2,'        IDN0=',I2) 

DO    1    1=1,40 

1  RE&D(5,2)    TIME<  I  ) , VELCC( I) ,DIVE(I)  ,ALTIT(  I)  ,XAC( I  5 

2  FORMAT i F4. I, F5.i  ,  F5.1 ,F6. 1,F6.  1 ) 

C  COMPUTATION    OF    DOWNRANGE    TRAVEL     FOR    EACH    POSITION. 

DC    8     1=2,40 

VKTS=VELGC(  I  ) 

ALT=ALT  IT  (  I  ) 

DEG  =  DIVE(  I) 

C^LL    BAL 
8  DRTl I)=X*2000./6080. 

WRITE (6, 7) 
7  FCFMAT{//) 

WRITE(6,14) 

14  FCRMAT( 12X,«DATA:  •  ) 
WPITE(6,11) 
WRITE(c,15) 

15  FORMAT! 12X, 'TIME       VKTS         DEG  ALT  DTT  DRT') 
DRT( 1 ) =0. 

DC    12     1=1,40 

WRITE(6,13)TIME(  I ) ,VELOC(  I), DIVE (I) ,ALTIT( I  ),XAC< I  ), 
1DRT( I ) 
13       FCRMAT(12X,F4.1,F6.1,F6.1,F7.1,F7.1,F7.1) 
12       CONTINUE 

DO    3    1=1,4 

RTIME(  I  )  =    T  I  ME (  1*2) 

VEL( I )=VELGC(I*2) 

DIV( I )=DIVE( 1*2) 

ALA(I)=ALTIT( 1*2) 

DPC( I)=DPT(I*2) 

3  DTT(  I)=XAC( 1*2) 
C  EXTRAPOLATION. 

DO  4  1=1,3 
XRT=10.+FL0AT( 1-1 ) 
XVEL=ORTFIT(XRT,  VEL) 
XDIV-OPTFIT(XRT,DIV) 
XALA=CRTFIT(XRT,  ALA) 
XDTT=ORTFIT(XRT,DTT) 
XDRG=C*TFIT(XRT,DRO) 
WRITE(6,11) 

11  FCPMAT(/) 
WRITE(6,5)XRT,XVEL,XDIV,XALA,XDTT,XDR0 

5  F0RMAT(12X, 

1  'EXTRAPOLATION    AT    TIME     »,F4.1,':', 

2/,12X,     'VKTS  =  '  ,F5.1 ,'     DEG=',F5.1,'    ALT=',F6.1,«     DTT=«, 

3F6.1,       «     DRT=«,F6.i) 

4  CONTINUE 
WRITE (6,  7) 
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40 


41 

20 


C 

c 
c 
c 
c 


THIS 

AND 


CALL  IN 
WRITE (6 
FORMAT! 

1F7.1) 
WRITE(6 
FORMAT* 

1F5.2J 
CCNTINU 
WRITE (6 
STCP 
END 
SLBRCUr 

O-   J.     J.    .-,    J      ,'      .  .  .  '- 

3r  t   •¥  -«*  *.*  '»*  -r  *.- 

CCMMCN/ 
1CF0RM1, 

2DKG2,     D 

3V,    VXA, 

4VXC,    YQ 

5  ,G, 

CCMMON/ 

CCMMON/ 

CALL     SETDAT 

CALL    SE 

CALL     CECGDE 

C/^LL    DE 

CALL     TRAJ    T 

CALL    TR 

RETURN 

END 

SL'BROUT 
CCMMON/ 
1CF0RM1 , 
2DKG2T  0 
3V,  VXA, 
4VXG,  YO 
5  ,G, 

COMMON/ 
COMMON/ 
G=    32.1 
RAD=    0. 
A=    0.7 
AA=    0.5 
VYK    =    - 
FRACT= 
DS    =    0. 
CFGRM1= 
CFCRM2= 
DM1=    0. 
DM 2=    0. 
DKG1=    0 
DKG2=    0 
VPUZ  =    0 
VE=    0.0 
SL=    0.0 
DMAX  =    5 
ITYPE  = 
FN=    OuO 
IB0TH= 
T=    0.0 
U=    VKTS 
DEL=    AT 
V=    SORT 
THETA= 
VXA=    (V 
VYA=     (V 
RETURN 
END 


TER(XD,TR) 

,40)XD 

12X,VD0WNRANGE    TRAVEL    FOUND    BY    EXTRAFOLAT I 0N= • , 

,41)TR 

12Xt'TIME    OF    RELEASE    FOUND    BY    EXTRAPOLATION^, 

E 
,10) 


INE    6AL 

#  £  $$  *  *  £  *  *  *  *;)£  ##  *  *  *  *  sje*  *  #  $  t-X  *  *  **  **  *  *  **  *  *  tf  *  Z*  *  ♦  * 


LIGHT  * 

-y    •.•■  ^t*  ..',   V-   o,  -J,   ...   ,    -•-   .J.    „>,   „«.  .--    ^.  J,   o,   .J,    a-  •-<-  -'-  ,<-   -a.   ,«.     .-,  »",   -J,  -'.  ^'-   .'-   ,t,  ^,   „y    *»*  v-    -'*   -.1.  *',*;.  O-  .',   -J,  ^-   „C 
o*  *»*  -*r  -Y-  o*  or  'r*  T  of  v  T  */»  '<*■  -v  *r  n*  -r  **■  *v*  *»*■  -»^  1*  *.•*  i*  V  o*  -v  -r  v  -v  "i*  -r*  -i*  "**  -T"  -*r  *v  'r  *r*  ■*>•*  *i*  "i-  t  o* 

AR 

D 

S, 

V 
t 

A 
TA 
AC 

T 
TD 

T 

CO 

0 

AJ 


SUBROUTINE    CALCULATES    TIME    OF    F 
DOWN    RANGE    TRAVEL    OF    THE    BOMBS. 


EA/  CT<  2,2)  ,  CC(3,3,2)  ,  IPEF, 
KG1,  UMAX,  I  TYPE,  I  BOTH,  DM  1 , C 
SL,  FN,  VMUZ,  RAD,  PR  ACT,  VE, 
YA,  CF,  DM,  DKG,  VX ,  VY ,  TH,  Y 
VYO,  ANlf  AN2,  API,  AP2,  IREG, 
t  AAfVYKt DfCKOGt MSTG 
D/T,X 

T/VKTS, ALT,DEG,YT, IONO 
0    INITIALIZE    THE    CONSTANTS 
AT 

0     INITIALIZE    THE    BOMB    C0EFF1CI 
DE 
CALCULATE    THE    SOLUTION    TC    THE 


F0RM2,     DM2, 
THETA,    U,     DEL, 
Y  A 
'rho!    DTI,     DTV 


ENTS 

DIFF.    EQUATIONS 


INE    SETDAT 

AREA/    CT(2,2),    CC(3,3,2),     IREF, 

DKG1,     DMAX,     I  TYPE,     I  BOTH,    DM  I , C 
S,     SL,     FN,     VMUZ,     RAD,     FRACT,    VE, 

VYA,    CF,     DM,     DKG,     VX,     VY,     TH,     Y 
,     VYO,    AN1,    AN2,    API,     AP2,     IREG, 

A,    AA,VYK,D,CK0G,MSTG 
TAD/T,X 

AC T/VKTS, ALT,DEG,YT,IDNO 
74 
0174533 

/A 
5.0 

0.5 
0 

0.0 

0.0 
0 
0 

.0 
.0 
.0 


FORM?,    DM2, 

THETA,    U,     DEL, 
,     YA, 

RHO,    DTI,     DTV 


.0 
-1 

1 

*1.6378 

AN2( VE,U> 

<U*U  +  VEWE ) 

DEG  *RA0 

♦VMUZ)*    CGS(THETA-DEL) 

♦VMUZ)*    SINITHETA-DEL) 
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C  WE 


C  WE 


C  WE 


C  WE 


C  WE 


C  WE 


C  WE 


C  WE 


C  WE 


C  WE 
1 


C  WE 
I 


SLBROUT 

CCMMON/ 

ICFORM1, 

2DKG2,  D 

3V,  VXA, 

4VX0,  YO 

5     1G1 

COMMON/ 

COMMON/ 

GO  TO  ( 

1,20,21, 

APON  CONS 

1  IREF  =  4 
DKG1=  2 
DTI  =  3 
GO  TO  3 

APGN  CONS 

2  I REF=  4 
DKG1=  6 
DTI  =  3 
GO  TO  3 

APON  CONS 

3  I*EF  =  4 
DKGL=  4 
DTI  =  3 
GO  TO  3 

APCN  CCNS 

4  IREF  =  2 
DMAX  = 
CFCRM1= 
DKGL=  2 
DTI  '  2 
GO  TO  3 

APGN  CCNS 

5  IREF  =  2 
DMAX  = 
CFORMl= 
DKG1  =  6 
DTI  =  1 
GO  TO  3 

APGN  CONS 

6  IREF=  4 
DMAX  = 
DKG1=  0 
DTI  =  1 
GC  TO  3 

APCN  CONS 

7  IREF=  1 
CF0RM1= 
DTI  =  3 
GO  TO  3 

APON  CONS 

8  IREF  =  4 
DNAX  = 
DKGi  =  9 
DTI  =  2 
GG  TO  3 

APCN  CONS 

9  IREF=  1 
CF0RM1= 
DTI  =  3 
GC  TO  3 

APON  CONS 

0  IREF=  1 
CFORMl= 
DTI  =  3 
GO  TO  3 

APON  CONS 

1  IREF=  1 
CFCRM1= 
DTI  =  1 
GG  TO  3 


INE  DECODE 
AREA/  CT( 2, 2) , 

DKG1,  DMAX,  I 
S,  SL,  FN,  VMU 

VYA,  CF,  DM, 
,  VYO,  AN  I,  AN 

A,  AA,VYK,D,C 
TAO/T,X 

ACT/VKTS, ALT,D 
1,2,3,4,5,6,7, 
22,23,24,25,26 
TANTS  FOR  THE 

.5506E-03 


CC(3,5,2),  IREF, 
TYPE,  IBOTH,  DM1TCF0RM2,  DM2, 
Z,  RAD,  FRACT,  VE,  THETA,  U,  DEL, 
DKG,  VX,  VY,  TH,  Y,  YA  , 
2,  API,  AP2,  IREG,  RHO ,  DTI,  DTV 
KDG,MSTG 

EG,YT,IDNO 

6, 9, 10,  11,  12, 13, 14, 15,  16, 17, 18, 19 

,27,28),  IDNO 

MK  43  UNRETARDED 


TANTS  FOR  THE 
.2994E-03 


MK  57  UNRETARDED 


MK  61  UNRETARDED 


1 

TANTS  FOR  THE 

.01E-03 

1 

TANTS  FOP  THE  MK  116  WETEYE 

3  •  0 

"3.9235E-03 

.754E-03 

• 

1 

TANTS  FOR  THE  MK  76  WITH  LUG 

3.0 

3.9077F-03 
.3648E-03 

• 

1 

TANTS  FOR  THE  MK  77  FIRE6CMB 

2. 
.021266 

• 

1 

TANTS  FOR  THE  MK  81 

2.5704 

• 

1 

TANTS    FOR    THE    MK    81     SNAKEYE    UNRETARDED 

3.0 
.767E-03 


1 

TANTS    FOR    THE 

2.064 

1 

TANTS    FOR    THE 

1.4932 

• 

1 

TANTS    FOR    THE 

1.3431 
1 


MK    82    MECH    FUZE 


MK    32    ELEC    FUZE 


MK    83    MECH    FUZE 
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WEAPON  CONSTANTS  FOR  THE  MK83  ELEC  FUZE 

12  IREF=  1 
CFORMl=  1.21 
DTI  =  3. 

GO  TO  31 
WEAPON  CONSTANTS  FOR  THE  MK  84 

13  IREF=  i 
CFORMl=  1.0 
DTI  =  3. 

GO  TO  3  1 
WEAPON  CONSTANTS  FOR  THE  MK  117  AL 

14  IPE^=  1 
CFCRM1=  3.12 
DKG1=  -1.223E-03 
DTI  =  3 . 

GO  TO  31 
WEAPON  CONSTANTS  FOR  THE  MK  86  WET  SAND  FILLED 

15  IREF=  1 
CMAX  =  3. 
CF0RM1=  3.4972 
DTI  =  2. 

c r  TD  ""I 
WEAPCN  CONSTANTS  FOR  THE  MK  63  WET  SAND  FILLED 

16  IREF=1 
CF0RM1=  1.605 
DTI  =  3. 

GO  TO  31 
WEAPON  CONSTANTS  FOR  THE  MK  82  SNAKEYE  UNRETARDED 

17  IREF=  4 
DMAX  =  3. 
DKG1=  7.329E-03 
DTI  =  1. 

WEAPON  CONSTANTS  FOR  THE  MK  82  SNAKEYE  RETARDED 

18  IREF=  1 
ITYPE=  1 
IBOTH=  2 
0KG1=  7.329E-03 
CF0RM2=  1.6395E-02 
DM2=  0.38 

DKG2=  0.17166 
DS=  0.6617 
SL=  -0.000269 
DTI  =  2.0 
GO  TO  3  1 
WEAPCN  CONSTANTS  FOR  THE  SADEYE  Tl  =  4.0 

19  IREF=  1 
ITYPE=  1 
I60TH=  2 
CF0RM1=  2.0754 
CFCRM2=  0.2217 
DS  =  4.267 

DTI  =  1.5 
GO  TO  31 
WEAPON  CONSTANTS  FOR  THE  ROCKEYE 

20  IREF=  1 
ITYPE=  1 
IBOTH=  2 
CF0RM1=  2.2973 
DM1=  0.32 
DKG1=  3.175E-03 
CFCRM2=  I.U36E-02 
DM2=  0.41 
DKG2=  0.16385 
DS  =  4.06 
DTI  =  2.0 
GO  TO  3  1 

WEAPON  CONSTANTS  FOR  THE  CBU  Tl  =  4.0 
2i  IREF=  1 
ITYPE=  1 
IBOTH=  2 
CF0RM1=  2.2404 


II  Tl  =  4.0 


7  6 


C  WEAP 

22 


C  WEAP 
23 


C  WEAP 
24 


C  WEAF 
25 


C  WEAP 
26 


C  WEAP 
27 


C  WEAP 
28 


C  SET 
31 
32 


CFORM 
DS  = 
DTI  = 
GO  TO 
ON  CO 
IREF  = 
ITYPE 
I  BOTH 
DKG1  = 
CFORM 
DM  2= 
DKG2= 
DS=  0 
SL=  - 
DTI  = 
GC  TO 
ON  CO 
IREF= 
DM  AX 
CFORM 
DKG1  = 
VMUZ  = 
DTI  = 
GC  TO 
ON  CO 
IREF  = 
ITYPE 
CFORM 
CFORM 
FN=  1 
DS  = 
DTI  = 
GO  TO 
ON  CO 
IREF  = 
ITYPE 
DS=  0 
DKG2  = 
DTI  - 
GO  TO 
ON  CO 
IREF  = 
ITYPE 
DS=  0 
DKG2  = 
DTI  = 
GC  TO 
ON  CO 
IREF  = 
I  TYPE 
DS=  0 
DKG2  = 
DTI  = 
GO  TO 
ON  CO 
IREr= 
ITYPE 
CFORM 
CFORM 
DS  = 
DTI  = 
THE  R 
GO  TO 
CC(  1, 

ecu, 

CC(  L, 

CC(2, 
CC(2t 
CC(2, 
CC(3, 
CC(3, 
CC(3, 


2=  0.11 
4.0 

1  .62 

31 
NSTANTS 

1 
=  1 
=  ? 

9.767E 
2=  2.30 
0.38 

0.2328 
.679 
0.00030 

1.622 

31 
NSTANTS 

3 
=  1  .5 
1=  2.99 

-0.014 

3300.0 

0.5 

31 
NSTANTS 

3 
=  2 

1=  0.32 
2  =  1.0 
7'+6.0 
1.4225 

1  . 

31 
NSTANTS 

4 
=  0 
.98 

1  .4  8 
0.31 
31 

NSTANTS 

4 
=  0 
.89 

2.0 

0.2  2 

31 
NSTANTS 

4 
=  0 
.89 

2  .70 
0.1 
31 

NSTANTS 

2 
=  2 

1=  0.15 
2=  0.15 
0.5 

0.8 
EFERENC 

{ 32,33 
1, li=  1 
1  )=  0 
1  )=  0 
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FOR  THE  MK  31  SNAKEYE  RETARDED 


-03 
625E-02 

7 

3 

FOR  THE  GUN 


64 
992 


FOR  THE  ROCKETS 


FOR  THE  MK  43  RETARDED  0.4  SEC  DELAY 


FOR  THE  MK  57  RETARDED  0.8  SEC  DELAY 


FOR  THE  MK  61  RETARDED  0.6  SEC  DELAY 


FOR  THE  MK  106  MOD  2 


14 
14 


2, 
3, 

1» 
2, 
3, 
L» 

2, 


1  )=  4 
1)=-C 
1)=  6 
l)  =  -0 
1)=    0 


3,1)=    - 


E    OR 

t34, 

.572 

.0 

.0 

.673 

.109 

.654 

.116 

.21  7 

9.76 


AG    CURVE    COEFFICIENTS    AND    CUTS 

51),     IREF 

924E-03 


409E-02 

711069 

801E-02 

380157 

643394 

7  068E-02 


7  7 


CT(1, 1)=  0.834 
CT(2f 1)=  0.977 
IF  (IB0TH-1)  33,99T33 

33  CC( 1, It I30TH)=  3.53503924 
CC(1,2, I  BOTH  J =-3. 3477 82  16 
CC( 1,3, IB0TH)=  2.87262413 
CC(2»1, I BOTH  1=1 1. 2616503 
CC(2,2, I  BOTH) =-77.4162 51  2 
CC(2,3, IBOTH)=  21.7308359 
CC(3,  I,  I  BOTH) =-2 3. 7915472 
CC(3,2, IBOTH)=  44.2607764 
CC<3,3,  I  BOTH) =-14. 49 96 046 
CT(1,IBCTH)=  0.622 

CT(2, I6GTH)=  0.885 
GO  TO  51 

34  CC( It  If  I)*   0.104115 
CC(  1,  2,  1)=  -0.230347 
CC<1,3,1)=   0.167644 
CC(2,lf 1 i=  -0.194037 
CC(2,2,1)=   0.401478 
CC(2,3, 1 )=  -0. lo4612 
CC(3,1,1)=   7.33246E-02 
CC(3, 2, 1)=  -2.03275E-02 
CC<3,3, 1)=   2.44682E-03 
CT(lfl)=  1.032 
CT(2,1)=  1.30 

99   DO  100  1  =  1  ,3 
DO  100  J=  1  ,  3 
CC( I , J, 2) =0.0 
ICC  CCNTINUE 

C  T  ( 1  f  2  )  =  0  •  0 
CT(2f2)=0.0 
51  RETURN 
END 

SUBROUTINE  TRAJ 

CO'MON/AREA/  CT(2,2),  CC(3,3,2),  IREF, 
lCFCRMlf  DKGlf  DMAX,  ITYPE,  180TH,  DM1,CFCRV2,  DM2t 
2DKG2,  OS,  SL,  FN,  VMUZ,  RAD,  FRACTt  VE,  THETA,  U,  DEL, 
3V,  VXA,  VYA,  CF,  DM,  DKG,  VX,  VY,  TH,  Y,  YA, 
4VX0,  YO,  VYQ,  AN1,  AN2,  API,  AP2,  IREG,  RHO,  DTI,  DTV 
5     ,G,  A,  AA,VYK,D,CKOG,MSTG 
C0MMON/TAD/T,X 

CCMMCN/ACT/VKTS,  ALT,0EG,YT,  IDNO 
C  INITIALIZE  THE  VARIABLES  FOR  THE  TRAJECTORY  SUBROUTINE 
CF=  CF0RM1 
DN=  DM1 
DKG=  DKG1 
MSTG=  1 
X=  0.0 
T=  0.0 
VX=  VXA 
VY=  VYA 
TH=  FN 
Y=  ALT 
YA=  Y 
C  TYPE  OF  DRAG 

IF  (ITYPE)  2,1,1 
C  SET  STEP  SIZE  FOR  FIRST  STAGE  DRAG 

1  D=  DS  +  SL-'U 
GC  TO  3 

C    COMPUTE    STEP    SIZE 

2  D  =  DMAX 

C  CALL  RUNGE  KUTTA  SUBROUTINE 

3  CALL  RUNGE 

DTV  =  1/G*(VY+SQRT(VY**2+2.*G*( Y) ) ) 
D  =  DTI 

IF  ( ( IDNO.LE .17)  .OR. ( IDNO.E0.23)  )  GO  TO  4 
C  SET  THE  SECOND  STAGE  DRAG  PARAMETERS 
MSTG  =  2 

IF  ( ITYPE. EQ. 2)  MSTG  =  1 
DKG=  DKG2 
DN  =  DM2 
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CF  =  CF 

TH  =  0. 

4  IF  (DTV 
C  SET  THE  STE 

5  D=  DTV 
C  SET  THE  ORA 

MSTG  =  2 
IF  (ITY 
DKG=  OK 
DM=  DM 2 
TH=0.0 
CF-  CFC 

C  CALL  RUNGE 
CALL  RU 
DTV  =  1 

C  UPDATE  THE 
T  =  T  + 
X  =  X  + 
RETURN 
END 

SU8R0UT 

CW.CN/ 

iCFORMl, 

2DKG2,  D 

3V,  VXA, 

4VX0,  YC 

5     ,G, 

COMMON/ 

COMMON/ 

C  INITIALIZE 
AD  =  A- 
YC=  Y 
VXC=  VX 
VYO  = 
RHO= 
CALL 

C  UPDATE  POSI 
Y=  YO+A 
RHO=  2. 
APi=  AP 
AN1=  AN 
VX=  VXO 

vy=  vyi; 

CALL  DE 
C  COMPUTE  TIM 
T=  T+D 
X=  X+D* 
Y=  YO  +  D 
VX=  VXO 
VY=  VYC 
RETURN 
END 

SUBPOUT 

CCMMCN/ 

1C FORK It 

2DKG2,  D 

3V,  VXA, 

4VXQ,  YO 

5     ,G, 

CCMMON/ 

COMMON/ 

C  COMPUTE  THE 

V  =  SQR 

CM=  V*< 

C  DETERMINE  T 

IF  (CM- 

1  IREG=  1 
GC  TO  5 

2  IF  (CM- 

3  IREG=  2 
GO  TO  5 

4  IREG=  3 


CRM2 
0 

-  D)  5,3,3 
P  SIZE  TO  THE  VACUUM  DROP  TIME  REMAINING 

G  PARAMETERS  FOR  THE  FINAL  INTEGRATICN  STEP 

Pt.EQ.2)     MSTG    =     1 
G2 


R  M  2 

FOR    THE    FINAL     INTEGRATION    STEP 

NGE 

/G*( VY+SQRT(VY**2+2.*G*< Y) ) ) 

TIME    OF    FALL    AND    THE    DOWN    RANGE    TRAVEL 

DTV 
DTV*VX 


IN5    RUNGE 

AREA/    CT(2,2),     CC(3,3,2),     IREF, 

DKG1  ,     DMAX,     ITYPE,     IBOTH,     DMI,C 
S,     SL,     FiA,     VMUZ,    RAD,     FRACT,     VE, 

VYA,    CF,     DM,     DKG,     VX,     VY  ,    TH,    Y 
,     VYO,     AN1,     AN 2,    API,     AP2,     I  REG, 

A,     AA,VYK,DfCKDG,MSTG 
TAD/T,X 

ACT/VKTS,ALT,DEG,YT, ID NO 
THE    VARIABLES    FOR    THE    RUNGE    KUTTA 
D 


FORM  2,     DM2, 

THETA,    U,     DEL, 
,     YA, 

RHO,    DTI,     DTV 


VY 

c  • 

Dt 


37576E-03-Y*(6.875  57E-08-Y*6.716  18E-13) 

PIV 

TION    AND    VELOCITIES 

C-VY 

37576E-03-Y*<6. 8755 7E- 08- Y*6. 716 


IE-13) 


2 

+AD*AN1 

+AD*AP1 

RIV 

E,     POSITION    AND    VELOCITIES 

( VXO+AA*( VX-VXO) ) 
*( VYOAA*< VY-VYO) ) 
+D*(AN1+AA*< AN2-AN1 )  ) 
+D*< AP1+AA*(AP2-AP1)  ) 


INE  D 
AREA/ 

DKG1 
S,     SL 

VYA, 
,     VYO 

A,  A 
TAD/T 
ACT/V 

TOTA 
T<  VX* 
8.954 
HE  RE 
CT(  1, 


ERI 
CT 
,  D 
,  F 
CF 
,  A 
A  ,V 
,X 
KTS 
L  V 
VX-t- 
4E- 
GIO 
MST 


V 

(2,2),    CC(3,3,2),     IREF, 

MAX,     ITYPE,     IBOTH,    DM1, C 

Ni     VMUZ,     RAD,     FRACT,    VE, 

,     DM,     DKG,     VX,     VY,    TH,    Y 

Nlt     AN2,    API,    AP2,     IREG, 

YK,D,CKDG,MSTG 


FCRM2,    DM2, 

THETA,    U,    DEL, 
,     YA, 

RHO,     DTI,     DTV 


, ALT,DEG,YT, IDNO 

ELCCITY    AND    THE    MACH    OF    THE     WEAPON 

VY*VY) 

044-3.  26E-09*Y)+DM 

N    OF    THE    DRAG    CURVE    THAT     IS    APPLICABLE 

G)  )     1,1,2 


CT(2,MSTG)  ) 
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C    DO    INTERMEC 
5    CKCG    = 
1+CCURE 
HH=    TH/ 
AN2=    HH 
AP2  =    HH 
RETURN 
END 
SUBROUT 


c 
c 
c 
c 
c 
c 


c 

c 


c 
c 
c 
c 
c 
c 


c 
c 


c 
c 


c 
c 
c 


IATE    BALLISTIC    CALCULATION 

DKG+CF*(CC(  IREGi  l,MSTGH-(CC(IREGf  2,MSTG) 

G,3,MSTG)*CM)*CM1 

V-RHO*CKDG*V 

*VX 

*VY-G 


*4*  *?  "fi  V  -v   t*  *C*  -r  -i*  *"p  V1  "T  'i*  *r  Xs  -r»  ^r  X*  nr  *p  V  -ir  ^?  t*  *r  X*  *r  *•*  V  *.*  -i»  **  X*  W  X^  ^r  *p  *i*  *»*  *  *  ^P  t* 


* 


SETS 
DIRE 


UP    THE     INCREMENTS    OF    TIKE    AND    THE 
CTJON    OF     SEARCH    OF    THE     INTERSECTION. 


»  ,  si,  x  ,u  x   ^<-  v-  J-  j-    -'-   J  -  ^y  -  v  -■-    X%iux  *»'  *V  >V  *V  -^  **-  »»*  «•'  J-  -1-  -  -  J-  -*  -  -''  ~V   --    —  y-  -1-  "'--'-■"'''  -1'  -1-  ,Jl*  -^  *S- 
-,    - .  -  ■•  -.*.  -,    ',•  i«  -i'  *■    -n^  «■»*  ***•  -^  *i~  *(-  ■nr  t«  *p  ***■  *t-  *p  *4»  *■>*  *v  *c*  ***  *r  *•*  i*  -p  *r  *p  *p  "*■*  ^*  •***  '•   t-  *»*•  *p  *  *  *<r  ■*<*■  Jp 

TIM/RTIMEC4) ,DR0<4) ,DTT(4) 

PET/RT,ZERO 
E(  1  ) 

=1.0    MEANS    THE     ANSWER    WAS    FOUND. 

MEANS:    NO    SOLUTION. 

P(DT) 

.EC.    0.0 )     GO    TO    2 

.EC.     1.0)     GO    TO    1 

P(DT) 

.EC     1.0)     GO    TO    1 

P(DT) 

. EQ.     1.0)     GO    TO    1 
009 
P(DT) 

RO 

f 

0 


y~  >V  •*•-  -*-  %»*  ■**  •*-  -J* 

^ .-,.,,.  ,,.  ^,  jjf,  *(.  -r 

CCNMCN/ 
CCMMON/ 
RT=RTIM 
DT=1. 

PES 
RES=0.0 
RES=COM 
IF  (RES 
IF  (RES 
DT=-0.1 
RES=COM 
IF  (RES 
DT=0.01 
RES=CCM 
IF  (RES 
DT=-0.0 
RES=COM 
TARP=RT 
XARP=ZE 
GO  TO  3 
TAPP=0. 
RETURN 
END 
FUNCTIC 

<^  -y.  <•,-  *j*  *r  t*  *r  *r  *v-  -«-  V  '*-  *v  **"  ■*<■  *•*  '**   'f  *p  *!"•  i*  *p  ^  ir  t*  t*  ^&  f  *r  "<*■  *i"  -v  -■-  -V  *v  '•-  "i*  -p  -r  nr  "r  ***  * 


N    COMP(DT) 


:  $  jj;  jjt  #  i|:  # 


EXECUTES 

OF    SIGN    3 


THE     SEARCH    UNTIL    THERE    IS    A    CHANGE 
R    THE     INTERSECTION    WAS    FOUND. 


* 


v-  .'-   •.*-  -Jf  <JL.  y-  *U  oj  *<-  *>.  »V  V-  »'-  • 

TIM/R 
R  E  T  /  R 

0",FO 

"TFOR 

.0 

1,50 

TFIT( 

FITCR 

.EQ. 

E.     0. 

(ONE- 

.GT. 

G.GT. 


kt,  v*  J-  A  -u-  -<, 


i  .'-  ~J.  <JU  «V  -'-  '■''  V'  »V  V-  ***  -J-  -'-  -**  >'■ 
•  *r  *<*  -i"  *'-  "\*  -r-  *k*  *r-  *f  *i»  **-  '(""It  •**» 


.'.    .<«<^J<«U  *.«-  J'  *'* 


Qe;$£$X<  ^  : 


CCMMON/ 
CCMMCN/ 
***"ZER 
***»ONE 
CCMP=-1 
DC  1  1  = 
ZEROOR 
CNE=ORT 
I  F  ( (  CT 
KGNE  .L 
IF    (ABS 


IF 
IF 
GC 
IF 


(DT 

(ZER 

TO    1 

(ONE 
PT=RT+0 
CCMP=0. 
COMP-0. 
GO  TO  4 
CCMP=1. 

COMP 
RETURN 
END 
FUNCTION    ORT 

v  t;  'r  V  v  V  X*  -I*  X*  ^r  X^  *r X^ 


TIME(4) ,DR0(4) ,DTT(4) 
T,ZERO 

R    THE     XAC    ARRAY.*** 
THE     XDROP    ARRAY.*** 


RTtDTT) 

T,DRO) 

l.)     .AND.      ((ZERO    .LE.    0.0)     .OR 

0) ) )COMP=0.0 

ZERO ) .LT.0.00L)     GO    TO    2 

0.0)     GO    TO    3 

ONE)     RETURN 


.GT.ZERO)     RETURN 

T 

0 

0    MEANS:     NO    SOLUTION. 


0 

=  l  .0 


THIS    FUNCTION 


MEANS    THE    ANSWER    WAS    FOUND. 


FIT(RTfRARRAY) 

GENERATES    THE    NECESSARY  * 
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c 
c 
c 
c 
c 
c 


10 


11 


111 


112 


12 


13 


14 


141 


*  CRTH 

*  COEF 

*  REPR 

*  THE 

******** 

CCMMCN/ 
01  MENS  I 
01  MENS  I 
01  MENS  I 
***    RT: 
DC  1  1  = 
ARRAY (I 
S0=4.0 
B  =  0.0 
DO  &  1  = 
B=B+RTI 
B0=B/SC 
S1=0.0 
DO  9  1  = 
Sl=Sl+( 
B  =  0.0 
DO  10  I 
B=B+(RT 

bi=b/si 

C1=S1/S 
S2=0.0 
DC  11  I 
S2=S2*< 
B  =  0.0 
DO  111 
B=3+RTI 
B2=B/S2 
C2=S2/S 
S3=0.0 
DC  112 
S3=S3+( 

1C2*(RTI 
D^O.O 
DO  12  I 
D=D+ARR 
C(  1)=D/ 
0  =  0.0 
DC  13  I 
D=D+(AR 
C(2)=D/ 
D=0.0 
DO  14  I 
D=D+( (A 
C(3)=D/ 
0  =  0.0 
DC  141 
0=D*(AR 

1-B0J-C1 
C(4)=0/ 
ORTFIT= 

1  +0(4)* 
RETURN 
END 


OGONAL  POLYNOMIALS  *    FINDS  THE  * 

FICIENTS  OF  THE  POLYNOMIAL  THAT  * 

ESENT  THE  DATA  POINTS  AND  EXTRAPOLATE  FOR   * 

REQUIRED  TIME.  * 

*********************************  *********** 


TIM/RTIME 

ON  RARRAY 
CN  ARRAYt 
ON  C(4) 
REAL  TIME 
It  4 
)=RARRAY( 


1,4 

M  E  (  I ) 


(4) 
(4) 
4) 


I) 


1,4 

RTIME( I)-B0)**2 


=  1,4 

1ME( I  ))*( 


=  1,4 
(RTIMEt I ) 


RTIMEt I )-80)**2 


-B1)*(RTIME( I )-B0)-Cl)**2 


1  =  1,4 

MEt I)*( (RTIMEt 1 ) -&1 ) *t RT I  ME ( I )-B0)-Cl)**2 


1 

1  =  1,4 

(RTIMEt I) 
MEt  I) -BO) 

=  1,4 
AY<  I  ) 
SO 

=  1,4 

PAYl I) )*( 
SI 


-B2)*(  (RTIMEt I J-Bl) *(RTIME(  I) -BO) -CI) 
)**? 


RTIMEt  D-BO) 


=  1  ,4 

RRAYt  I)  )*(  (RTIMEt  I)-B1)=MRTIME(I  ) -BO) -CI)  ) 

S2 


1  =  1,4 

RAYt I ) )*( 

)-C2*(RTI 

S3 

C(  1 )  +C  <2) 

URT-B2)* 


{RTIMEt I )-B2)*(( RTIMEt I )-Bl  )* (RTIMEt  I) 
MEt I )-B0) ) 

*(RT-B0)+C(3)*(  tPT-Bl)*(RT-80)-Cl  ) 
t  tRT-Bl)*(RT-B0)-Cl)-C2*(RT-80) ) 
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RUN  NUMBER  1   I0NC=10 


DATA: 


TIME 

VKTS 

DEG 

ALT 

DTT 

DRT 

0.0 

0.0 

0 .  C 

7549.4 

4148.9 

0.0 

1.0 

398.0 

-30.5 

7207.8 

39  58.5 

2468.3 

2.0 

406.8 

-29.9 

6865.5 

3762.6 

2  446.4 

3.0 

415.2 

-29.3 

6522.3 

3561.4 

2417.6 

4.0 

423.4 

-23.8 

6173.3 

5355.5 

2376.7 

5.0 

431  .1 

-28.3 

5833.3 

3144.3 

2328.3 

6.0 

438.5 

-27.  £ 

5487.4 

2928.9 

2  2  7  3.4 

7.0 

445.5 

-27.5 

51^0.5 

2709.3 

2193.3 

8.0 

452.1 

-27.1 

4792.5 

2485.3 

2122.3 

9.0 

458.4 

-26.8 

4443.4 

2258.5 

2032.5 

9.5 

462  .  8 

-26.6 

4268.4 

2143.5 

1990.0 

9.6 

464.  5 

-26.5 

4233.4 

2120.4 

1986.2 

9.7 

465.1 

-26.5 

4196.4 

2097.3 

1974.6 

9.8 

465.6 

-26.5 

4163.3 

2074.2 

1962.7 

9.9 

466.2 

-26.4 

4128.3 

2051.0 

1956.5 

10.0 

466.7 

-26.4 

4093.2 

2027.8 

1944.5 

10.1 

467.3 

-26.4 

405  8.1 

200t.5 

1932.6 

10.2 

467.8 

-26.4 

4  02  3.0 

1961.2 

1920.5 

10.3 

<t68.3 

-26.4 

5987.9 

1957.9 

1903.3 

10.4 

463.9 

-26.3 

39  5  2.8 

1934.6 

1901.6 

10.5 

469.4 

-26  .  3 

39  17.6 

191  1.2 

1389.3 

10.6 

4o9.9 

-26.3 

38  3  2.5 

1867.8 

1876.9 

10.  7 

470.4 

-26.3 

3847.3 

1364. 3 

1664.4 

10.8 

471  .0 

-26.2 

3812  .1 

18  40.9 

1857.3 

10.9 

4  71.5 

-26,  2 

3  7  76.9 

1817.4 

1845.4 

11.0 

472.0 

-26.2 

374i.7 

1/93.9 

1332.7 

11.1 

472.5 

-26.2 

3  706.5 

1770. 3 

.1819.9 

11.2 

4  73.  J 

-26.2 

3671.3 

1  746.7 

1807.0 

11.3 

473.5 

-26.1 

3636  .  1 

1723.1 

1799.4 

11.4 

4  74.0 

-26.1 

3  600.8 

1699.5 

1736.3 

11.5 

474.5 

-26.  1 

5565.5 

1675. 3 

1773.2 

11.6 

474.9 

-26.  1 

3530.3 

1652.1 

1759.9 

11.7 

475.4 

-26.  1 

3495.0 

1628.4 

1746.6 

11.8 

475.9 

-26.  1 

3459.7 

16  04.^ 

1 733. 3 

11.9 

476.4 

-26. C 

3424.3 

1580. 8 

1725.0 

12.0 

476.9 

-26. C 

3389.0 

1557.0 

1711.5 

12.1 

477.3 

-26. C 

3353  .7 

1533.2 

169  7. 8 

12.2 

477.8 

-26. C 

3318.3 

1509.3 

1684.2 

12.3 

4  7  8.2 

-26.  G 

3282.9 

1485.5 

1670.3 

12.4 

4  78.7 

-26.0 

3247.6 

1461.5 

1656.6 

EXTRAPOLATION  AT  TIME  10.0: 

VKTS=463.9  DEG=-26.7  ALT=4093.5  DTT=2027.8  DRT=1925.5 

EXTRAPOLATION  AT  TIME  11.0: 

VKTS=469.0    DEG=-26.5    ALT=3742.3    DTT=1794.0    DRT=1812.6 

EXTRAPOLATION    AT    TIME     12.0: 

VKTS=473.6    0EG=-26.4    ALT=3389.9    DTT=1557.3    DRT=1688.4 


DOWNRANGE    TRAVEL    FOUND    BY    EXTR APOLAT I 0N=     1831 
TINE    OF    RELEASE    FOUND    BY    EXTRAPOLAT I CN=10 .84 
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RUN    NUMBER    2       ICN0=10 


DATA: 


TIME 

VKTS 

DEG 

ALT 

DTT 

DRT 

0.0 

0.0 

0.0 

9225.4 

3  8  96.0 

0.0 

1.0 

343.6 

-37.0 

8876.3 

3743.5 

2269.0 

2.0 

355.2 

-37.2 

8513.7 

3  5  86.3 

2235.0 

3.0 

366.5 

-37.2 

8139.5 

3424. 1 

2202.1 

4.0 

377.5 

-37.  1 

7755.3 

3256.7 

2164.9 

5.0 

388.  1 

-36.  8 

7362.9 

3084.0 

2129.0 

6.0 

398.4 

-36.4 

6964.1 

2905.8 

2039.8 

7.0 

400.4 

-35.8 

6560.6 

2721.8 

2052.4 

8.0 

418.  1 

-35.  1 

6154.1 

2531.9 

2012.3 

9.0 

427.6 

-34.4 

5746.5 

2335.8 

1963.5 

9.5 

4  34.6 

-23.7 

55  4  2.7 

2235.4 

1958.5 

9.6 

437.4 

-23.5 

5502.0 

2215.1 

1963.1 

9.7 

4  38.3 

-33.4 

5461.3 

2194.3 

1958.6 

9.8 

439.2 

-33.3 

5420.6 

2174.4 

1954.2 

9.9 

440.1 

-33.2 

5379.9 

2153.9 

1949.6 

10.0 

441.0 

-33.  1 

5339.3 

2133.4 

1944.9 

10.  1 

441.9 

-33. C 

5298.7 

2112.6 

1940.2 

10.2 

442.8 

-32.9 

5253.  1 

2092.1 

193  5.4 

10.3 

443.8 

-32.6 

5  217.5 

2071. «+ 

1930.7 

10.4 

444.  7 

-32.7 

5177.0 

2050.6 

1925.8 

10.5 

445.6 

-32.6 

5136.5 

2029.8 

1920.7 

10.6 

4  46.5 

-32.5 

5  096 .0 

2008.3 

1915.6 

10.7 

4  4  7  .  4 

-32.4 

5055.5 

1987.3 

1910.4 

10.8 

448.3 

-32.3 

5015.  1 

19  66.8 

1905.1 

10.9 

4  49 .  2 

-32.2 

49  74.7 

1945.6 

1899.8 

11.0 

450.  1 

-32.0 

4934  .<+ 

1924.5 

1899.5 

11.1 

451  .0 

-21.  S 

4894.1 

1903.2 

1893.9 

11.2 

451  .9 

-21.8 

48  5  3.8 

1881.9 

1833.3 

11.3 

452.8 

-31.7 

4813  .6 

1360.5 

1882.7 

11.4 

453.  7 

-31.6 

47  7  3.5 

18  39.0 

1876.9 

11.5 

4  54.6 

-31  .5 

4733.3 

1817.5 

1871  .  1 

11.6 

455.5 

-31.4 

H693.3 

1795.9 

1865.2 

11.7 

456.4 

-3i.3 

4653.2 

1774.2 

1359.2 

11.8 

457.3 

-31.2 

46  13.3 

1752. 5 

1853.  1 

11.9 

4  5  8.2 

-31.  1 

4573.4 

1730.7 

1847.0 

12.0 

459.  1 

-30.9 

4533.5 

1708. 3 

1845.8 

12.1 

460.0 

-30.  8 

4493.7 

16  86.8 

1339.5 

12.2 

460. 9 

-30.7 

4453.9 

1664.3 

1833.1 

12.3 

461.8 

-30.6 

4414.3 

1642.7 

1826.6 

12.4 

462.  7 

-3C.5 

4374.6 

1620.6 

1820.0 

EXTRAPOLATION  AT  TIME  10.0: 

VKTS=436.4  DEG=-33.2  ALT=5339.8  DTT=2134.0  DRT=1937.3 

EXTRAPOLATION  AT  TIME  11.0: 

VKTS=445.1    DEG=-32.0    ALT=4935.3    DTT=1925.5    0RT=1900.3 

EXTRAPCLATION    AT    TIME    12.0: 

VKTS=453.5    DEG=-30.7    ALT=4535.0    DTT=1710.4    DRT=1864.6 


DOWNRANGE    TRAVEL    FOUND    BY    EXTR APOL AT  ION=     1895.2 
TIME    CF    RELEASE     FOUND    BY    EXTR APOLAT I 0N= 1 1  .  14 
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RUN  NUMBER  3   IDN0=10 


DATA: 


TIME 

VKTS 

DEG 

ALT 

DTT 

DRT 

0.0 

0.0 

0.0 

2000.0 

3699.4 

0.0 

1.0 

300.0 

O.C 

2000.0 

3532.7 

1837.2 

2.0 

300.0 

0.  C 

2  000.0 

33  66.0 

1837.2 

3.0 

300.0 

O.C 

2000.0 

3199.4 

1837.2 

4.0 

300.0 

O.C 

2000.0 

3032.7 

1837.2 

5.0 

300.0 

O.C 

2000.0 

2866.0 

1637.2 

6.0 

300.0 

O.C 

2000  .0 

2699.4 

183  7.2 

7.0 

300.0 

O.C 

2000  .0 

2532.7 

1837.2 

8.0 

300.0 

O.C 

2000.0 

2366.0 

1837.2 

9.0 

300.0 

0.0 

2  000  .0 

2199.4 

183  7.2 

9.5 

300.0 

O.C 

200C.0 

2116.0 

1837.2 

9.6 

300.0 

O.C 

2000.0 

2099.4 

1637. 2 

9.7 

300.0 

O.C 

2C00.0 

2082.7 

1837.2 

9.8 

300.0 

2000.0 

2  066. 0 

1837.2 

9.9 

300.0 

0.0 

2000.0 

2049.4 

1337.2 

10.0 

300.0 

O.C 

200C.0 

2032.7 

1337.2 

10.1 

300.0 

C.C 

200C.0 

2016.0 

1337.2 

10.2 

300.0 

O.C 

2000.0 

1999.4 

1837.2 

10.3 

3  00.0 

O.C 

2  COCO 

1962. 7 

1837.2 

10.4 

300.0 

C.C 

2000.0 

1966.0 

1337.2 

10.5 

300.0 

O.C 

2000.0 

1949.^ 

1837.2 

10.6 

300.0 

O.C 

2000.0 

1932.7 

1837.2 

10.7 

300.0 

0.0 

2000  .0 

1916.0 

1837. 2 

10.8 

300.0 

O.C 

2  000.0 

1399.4 

1837.2 

10.9 

300.0 

0.0 

2000.0 

1882. 7 

1837.2 

11.0 

300.0 

0.0 

2000.0 

I806.O 

1637.2 

11.1 

300.0 

O.C 

2000.0 

18  49.4 

1837.2 

11.2 

300.0 

C.C 

2000.0 

18  32. i 

1837.2 

11.3 

300.0 

0.  c 

2C00.0 

1816.0 

1837.2 

11.4 

300.0 

O.C 

2  000.0 

1799.4 

1837.2 

11.5 

300.0 

0.0 

2000.0 

1782.7 

1837.2 

11.6 

300.0 

0.0 

2C00.O 

176 6.0 

1837.2 

11.7 

3  00.0 

0.0 

2000.0 

1749.4 

1837.2 

11.8 

300.0 

O.C 

2000.0 

1732.7 

1837.2 

11.9 

300.0 

0.0 

2000.0 

171b. 0 

1337.2 

12.0 

300.  J 

O.C 

2000.0 

1699.4 

1837.2 

12.1 

300.0 

O.C 

2000.0 

lo99.^ 

1837.2 

12.2 

3  00.0 

0.0 

200  0.0 

1666.0 

183  7.2 

12.3 

300.0 

O.C 

2000.0 

1649.4 

1U37.2 

12.4 

300.0 

0.0 

200C.O 

1632.7 

183  7.2 

EXTRAPOLATION    AT    TIME    10.0: 

VKTS=300.0    DEG=      0.0    ALT=2000.0    DTT=2033.4    DRT=1837.2 

EXTRAPOLATION    AT    TIME     11.0: 

VKTS=300.0    DEG-      0.0    ALT=2000.0    DTT=1867.2    DRT=1637,2 

EXTRAPCLATICN    AT    TIME    12.0: 

VKTS=300.0    DEG=       0.0    ALT=2000.0    DTT=1701.2    DRT=1637.2 


DOWNRANGE    TRAVEL    FOUND    BY    EXTRAPOLAT  ION=     1837.3 
TIME    OF    RELEASE    FOUND    BY    EXTRAPOLAT  I0N=1 1 . 18 
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RUN    NUMBER    4       ICN0=10 


DATA: 


TIME 

VKTS 

DEG 

ALT 

DTT 

DRT 

0.0 

0.0 

O.C 

4451.7 

5228.2 

0.0 

1.0 

450.0 

-10.0 

4319.7 

4982.0 

3106.4 

2.0 

450.0 

-10.0 

4187.7 

4735.3 

3  047.7 

3.0 

450.0 

-10.0 

4055.8 

4489.6 

2933.1 

4.0 

4  50.  0 

-10.0 

39  2  3.8 

4243.4 

2927.6 

5.0 

450.0 

-10.  C 

3791.8 

3997.2 

2  866. 1 

6.0 

450.0 

-10.0 

3659.8 

3751.0 

2  803.6 

7.0 

450.0 

-10.0 

3527.9 

3504. 8 

2  74  0.0 

8.0 

450.0 

-10. C 

3395.9 

32  53.6 

2675.2 

9.0 

450.0 

-10.0 

3263.9 

3012.4 

2ol0.1 

9.5 

450.0 

-10.0 

3198.0 

2389.3 

2  5  76.6 

9.6 

450.0 

-10.0 

3134.8 

28  64.7 

2  569.8 

9.7 

4  50.0 

-10.0 

3171.6 

2840.1 

2  5  6  3.1 

9.8 

450.0 

-10.0 

315  3.4 

2815.4 

2556.3 

9.9 

450.0 

-10.0 

3145.2 

2790.8 

2549,5 

10.0 

450.0 

-10.0 

3132.0 

2766.2 

2  542.7 

10.  1 

450.0 

-10.0 

3118.8 

2741.6 

2535.9 

10.2 

450.0 

-10.  c 

3105.6 

2717.0 

2529.1 

10.3 

450.0 

-  1 0  .  c 

309 2. 4 

26S2.3 

2  5  2  2.2 

10.4 

450.0 

-10. c 

3079.2 

2667.7 

2  515.4 

10.5 

450.0 

-10.0 

3  0o6.0 

2643.1 

2  508.5 

10.6 

4  50.0 

-10.0 

30  5  2.3 

2613.5 

2501.6 

10.7 

450.0 

-10. 0 

30  39.6 

2593.9 

2494.7 

10.8 

450.0 

-10.0 

3026.4 

2  56^.2 

2487.8 

10.9 

4  50.0 

-10.0 

30  13.2 

2544.6 

2480.9 

11. 0 

450.0 

-10.0 

3  000.0 

2520.0 

24"^4.0 

11.1 

4  50.0 

-10.0 

2986.8 

2495.4 

2467.0 

11.2 

450.0 

-10.0 

29  73.6 

24  70.3 

2460. 0 

11.3 

4  50.0 

-10. c 

2960.4 

2446.1 

2453.  1 

11.4 

450.0 

-10.0 

2947.2 

2421.5 

2446.  1 

11.5 

4  5  0.0 

-iO.C 

2934.0 

2396.9 

2439.  1 

11.6 

4  50.0 

-10.0 

2920.8 

2372.3 

2432.0 

11.7 

4  50.0 

-IO.C 

2907.6 

2347.7 

2425.0 

11.8 

4  50.0 

-10.0 

2694.4 

2323.0 

2417.9 

11.9 

450.0 

-10.0 

2881.2 

2293.4 

241C.9 

12.0 

450.0 

-10.0 

2868.0 

2273.3 

2403.8 

12.1 

450.0 

-10.0 

285<t.3 

2249.2 

2396.7 

12.2 

450.0 

-10.0 

2841 .6 

2224.6 

2389.6 

12.3 

450. C 

-10. 0 

2828.4 

2199.9 

2382. 5 

12.4 

450.0 

-10.0 

2815.2 

2175.3 

2375.3 

EXTRAPOLATION     AT    TIME     10.0: 

VKTS=450.0    0EG=-10.0    ALT=3132.7  DTT=2766.2    DRT=2542.5 

EXTRAPOLATION    AT    TIME     11.0:  __ 

VKTS=450.0    DEG=-10.0    ALT=3001.2  DTT=2520.0    DRT=2474.3 

EXTRAPCLATICN    AT    TIME    12.0:  _t    ^/n/ 

VKTS  =  450.0    DEG=-10.0    ALT=2869.9  DTT=227r>.8    DRT  =  2404.9 


DOWNRANGE    TRAVEL    FOUND    BY    EXTRAPOLATIONS    2456.6 
TIME    OF    RELEASE    FOUND    BY    EXTR APOLAT I 0N= 1 1 . 26 
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*****************************#*£  **#**#*#:(< 


VKTS  = 
XAT  = 

ALT  = 

OEG= 

TIME  = 

YT  = 

TC  = 

ATGL  = 

ALIM- 

DTE5  = 


INPUT    DATA: 
400.00  DTNAV= 


5.00 

4000.0 

5.0 

0.0 

0.0 

18.313 

5.0 

200.0 

0.005 


DT3AL= 
DTE1  = 
DTE2  = 
DTE3  = 
IDN0= 
TMV  = 
RLIM  = 
DTE4  = 
DTE6  = 


0.200 
3.000 
0.C02 
0.002 
0.3C0 
11 
3.000 
0.5 
0.004 
0.005 


PRELIMINARY       COMPUTATIONS 


* 

* 

* 
* 

*******************************  ***#-;*;{;*#:$: 

o,  V      O     .,',  *'     V;   +L>  •*,    .',   ■)-  Vf  V'  X   O-  ^r  *U   O-   •/*  U*.  «J«-  -JL,  y*    J^  %'/  f.  «*,  X  ^L  ^  Or  ^  g<  «>,  ^  U«  X  w1.  <A>  n'<  ^   <JU 

A*  ^r  t  ■i*  t  T"i*  t  ir*  **-  ^r  -T*  -r  *r  *r-  *r  t  t  t  *i-  i*  r  r  v  ^  *.»  ^  -\»  t»  ^  -i^t  t  'r  t  t  t  ir-  v  r  i' 

* 
* 

* 
* 

* 

* 

* 
* 

* 

* 

* 


AT    TIME=    6.004 
XAT=       4.35       ALT= 

THE    TIME    NOW    IS 

AT    TIME=    6.004 
XDRGP=       1.90 

THE    TIME    NOW    IS 

AT    TIME=    9.008 
XAT=       4.03       ALT= 

THE    TIME    NOW    IS 

AT    TIME=    9.008 
XDRQP=       1.89 

THE    TIME    NOW    IS 

AT    TIME=12.012 
XAT=       3.73       ALT= 

THE    TIME    NOW    IS 

AT    TIME=12.012 
X0R0P=       1.87 

THE    TIME    NOW    IS 

AT    TIME=15.016 
XAT=       3.43       AL.T  = 

THE    TIME    NOW    IS 

AT    TIME=15.016 
XDR0P=       1.85 

THE    TIME    NOW    IS 


4346.1 

6.006 

9.008 

4513.6 
9.010 

12.012 

46  7  7.5 
12.014 

15.016 

4837.6 
15.018 

18.020 


* 


* 
* 


* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 

* 


* 
* 

•A* 
"V- 

* 

* 
* 
* 
* 

* 
# 

* 
* 
* 


***************************************** 
jjcXt  ***  ************************************ 

*  * 

*  RELEASE    POINT:  * 


* 
* 
* 
* 
* 
* 


HORIZ.     OIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 

THE    TIME    NOW    IS: 


1.68  5      NM       * 
33.904    SEC       * 
5758.9      FT      * 
* 

18.325  * 

* 


***************************************** 


86 


+       +       +       + 


:C5  012  OiS  024  030 


K-5CRLE-6. 00E+00   UNITS    INCH. 
Y-SCRLE=9.00E-01   UNITS    INCH. 

CURUES   OF   KRC   RND   XDRQP',US-    TIME 
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#*%tt*%**#Z#%%%itZ#&Z*%%%%%%Z*%$*#^*%ti%*** 


* 
* 


AT    TIME=18.325    : 
XAT=       3.10       ALT  = 

THE    TIME    NOW    IS: 

AT    TIME=18.325    : 
XDROP=       1.83 


5009.6 
18.330 


THE    TIME    NOW    IS:       21.332 


RELEASE    POINT: 

HORIZ.    DIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 


1.690  MM 
33.908  SEC 
5759.1       FT 


ThE    TIME    NOW    IS:       21.83  2 


* 
* 


«v  y.  ^  j,  J,  .i-  ^'  ^  ^  si.  x  .i,  .i,  ^,  x',  j,  .>,  j.  v.  o-  y,  «'-  j-  J.  j.  **-  f  ^  u-  v,  j.  .',  .'.  .i,  j.,  .i,  j,  o,  .i,  ^*  *■- 
Jr  *r  *v  -v  *r  -v-  ■*»*  *r  i*  *»»  'r  *»■*  -v*  t  n*  *r  *r  -v  •*%*  -v*  •*/-  -r  *»*  -i*  *.*  •"»■*  *o  *i*  -v  a-*  m*  n*  -r  *.*  •*»-  -r  *»*•  *i*  *»-  i*  *p 


SS*  J.   sRr  %J*  V»   kl>   *V 

*r>  -v  *r  *r  *r  n*  -ni* 


O-  J*  v-  -V  ~*- 


:*********************' 


AT    TIME=21.832     : 
XAT=       2.77       ALT= 

THE    TIME    NOW    IS: 

AT    TIME  =  21  .832     : 
XDR0P=       1.80 


5187.0 
21.83  7 


THE    TIME    NOW    IS:       24.839 


* 

* 
# 


RELEASE    POINT: 

HORIZ.    DIST.    TO  TARGET: 

TIME  : 

A/C    ALTITUDE  : 


1.689  NM 
33.952  SEC 
5761.1       FT 


THE    TIME    NOW    IS:       25.339 


* 
* 

* 

* 


AT    TIMF=25.339    : 
XAT=       2.44       ALT= 


THE    TIME    NOW    IS: 

AT    TIME-25.339    : 
XDROP=       1.77 


5359.4 
25.344 


THE    TIME    NOW     IS:       28.346 


* 

* 
* 

*  THE    TIME    NOW    IS:       28.846  * 


RELEASE    POINT: 

HORIZ.    DIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 


1.689  NM 
33.956  SEC 
5761.3       FT 


* 
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£#*£*:<•#********************************** 


* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


AT    TIME=23.846    : 
XAT=       2.13       ALT  = 

THE    TIME    NOW    IS: 

AT    TIME=23.846     : 
XDROP=       1.74 


5526.6 
28.851 


THE    TIME    NOW    IS:       31.853 


RELEASE    POINT: 

HORIZ.     DIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 


1.689  NM 
33.955  SEC 
5761.2       FT 


THE    TIME    NOW    IS:       3  2.353 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 
* 

* 


«A»  *V    *L.  .JL-  «J<   J*  *X»  -.V  »•»  «iA»  *A*  »V»  **-   »*-  *A*  *A*   *J-r    »'*    «A«  «J»r  »'*  **•»    «J*  ""V  ■»*■•  **»  ">»»  V'    ***  ^V  "*»  >•*■   *V  «J^  »J*  •»'<•  •-'••■  »V  v*-    *-V   »/* 

i*  *»v  *r  *t-  *iv  T1  *v  *»  *v  *i*  ^r  **»*  ■*■*  t*  ^r  -v*  nr  -r  *r  "(■■  •(*+?•  *<*■  **•  ~i-  *■*  t*  np  ni*  'r-  *\*  Ji*  nr  *v  *t*  *r  •*»*  "V"  *c  *r-  <nr 


5jc  «kC  *,.  ^,;  ^  3^*  »^»  ;,t  9}C  S^CSJC 3jC2§C  ^«  J0C3yC  3§C  3j(  !$C 2jC  I4C  .»,£  -,;  ^  V  *r  V  V  ;.:  -»*  15  V  V  5,t  7^c  ^.  ;,»  ;£  -y,  *^C  ^. 

*  NOT    ENOUGH    TIME    TO   COMPUTE.  * 

*  * 

*u  ***  %.*»  •>»  -'-  v  v-  vi-  *»>  ->,  o*  -u  »'.  .v  *C  J*  <ju  -u  v-  o*  <JU  v*.  V-  *"r  *  *^  *''  *■»*  •'"  ^*  ***  i!r  J-  "J-  V*  *•  *-  »£•  »V  -*-•  ■***• 
***■  *»*  ***■  •»*  nr-  'iv  ii*  '.*  -«-  *•(*  *r*  -i-  nT  -r  *»•  ***  *(*•  -i-  'r  *i*  -v»  V  *r  "<*  *f  i*  *r  *•»  «v  -r  -r  -**  *e*  *r  n*  *«■  *>*  nr*  '»*■  '<*■  *v 
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%^%it#%X*#*f  #*%*#*.*  XX^-f  *#**■**##*%%%#  %****** 


* 

INPUT 

DATA: 

* 

* 

VKTS  = 

400.00 

0TNAV= 

0.200 

f 

# 

XAT  = 

1.90 

DTBAL= 

3.000 

* 

* 

ALT  = 

4000.0 

DTE1  = 

0.002 

•A. 

* 

DEG  = 

5.0 

DTF2  = 

0.002 

* 

* 

T  I H  E  = 

0.  0 

DTE3  = 

0.300 

* 

* 

YT  = 

0.0 

IDN0= 

11 

4e 

* 

TC  = 

18.31 3 

TMV  = 

3.000 

♦ 

* 

ATOL  = 

5.0 

RLIM= 

0.5 

»«* 

* 

ALIN  = 

200.0 

0TE4  = 

0.004 

# 

* 

DTE5  = 

0.C05 

DTE6  = 

0.005 

<jt  *#***# 

:{£.£#:{:£:{£  *£&■)'{ 

■>f.?,i  ■%.■%■%■%  if  1£i£?!L 

*  £***>!<#  *v 

*o-  v.  ■*»-  o-  J-  o-  »',  -J-  ju  gu  'V  ^  ^-%V  ^  ^  ^  V'  ^'  -^  ^  ^f  ^r  V'  ^  ^  «V  »*-  "'*  **■*  »'-  ^^  -J"-  V'  *v  J..  «v  v*  <J-  u* 
.  n*  *r  *»*  'i*  *«"  ^  *r  *v  *r  *r-  ^r  -i*  «v*  -A  *v*  "c  -r-  V  *r  -r  -V  n*  *r  ^r"  1*  t  *r  *r-  *i-  t-  *y*  «v  ^  •»*  -v  *,-  ^  t  ■V'  *r 

%>  »^ 

*  NO    SOLUTION    FOR    THESE    DATA:  * 

>V  '■'*    Vr  ^J*  ***  **■*   **»  *V  J*  'A*   *V  »'*  **■'    J»  *J"  V*  *V    '**'    Vr  *V  ***  V"   *fr  *^*  ,l^*   "*V   **'  ***    ***  *I*"»J»  *i*  «.'»  *l»    »•»  -•-  %L-  *•*  -J-  Vf    **» 

-,-.-,»  ^  ^  *(»  -y*  "T*  -m  't*  ^i*  ^r  'r  T-  »<*'  *"r  ^*  i*  ***  n*  ~t»  ■***  -v-  ~f-  *r>  -v  *r  -v  t-  yy^vyttwv  *»*•  V  t* 
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^^^^^^^^ifififififififif^ififif^yfififif^ifififift-ififif^if^ififif^ 


* 

* 

* 

INPUT    DATA: 

* 

* 

VKTS=       400.00            DTNAV=          0.200 

* 

* 

XAT=             5.50             DT3AL=          3.000 

* 

# 

ALT=       4000.0 

DTE1=         0.002 

* 

* 

DEG=               0.0 

DTE2=         0.002 

* 

TIME  =               0.0 

DTE3=          0.300 

* 

* 

YT=               0.0 

IDNG=                   11 

if 

if 

TC=       18.313 

TMV  =          3.000 

if 

* 

ATOL=               5.0 

RLIM=               0.5 

* 

* 

ALIM  =          200.0 

DTE4=          0.004 

* 
* 
** 

0TE5=         0.005 

DTE6=         0.005 

'C 

^^^^^^t'ififififif^if^ifififif^if^ift^ififif^ifififififififift-^' 

-V  .JU- 

-**  -1* 

^^^^f^^^^^ififififififif^Vif-fifififififififififif^ififr?^^^^^ 

* 

if 

if 

PRELIMINARY       COMPUTATIONS: 

* 
* 
* 

AT    TIiME=    6.004    : 

XAT=       4.83        ALT= 

=       4000.0 

* 
if 
* 

THE    TIME    NOW    IS: 

:          6.006 

* 

* 

* 

AT    TIME=    6.004    : 

* 

* 

XDROP=       1.72 

* 

♦ 

* 

* 

THE    TIME    NOW    IS: 

9.008 

* 

* 

* 

* 

AT    TIME=    9.008     : 

* 

* 

XAT=       4.50       ALT= 

=      4000.0 

* 

* 

* 

* 

THE    TIME    NOW    IS: 

9.010 

* 

* 

* 

* 

AT    TIME=    9.008    : 

* 

* 

XDROP=       1.72 

* 

* 

* 

* 

THE    TIME    NOW    IS: 

12.012 

* 

* 

* 

* 

AT    TIME=12.012     : 

* 

* 

XAT=      4.17       ALT= 

■       4000.0 

* 

* 

* 

* 

THE    TIME    NOW    IS: 

12.014 

* 

* 

* 

* 

AT    TIME= 12.012    : 

if 

* 

XDROP=       1.72 

* 

* 

* 

* 

THE    TIME    NOW    IS: 

15.016 

* 

* 

* 

* 

AT    TIME =15.016     ! 

* 

* 

XAT=       3.83       ALT= 

4000.0 

* 

* 

* 

* 

THE    TIME    NOW    IS: 

15.018 

* 

* 

* 

* 

AT    TIME=15.016    : 

* 

* 

XDROP=       1.72 

* 

* 

* 

* 

THE    TIME    NOW    IS: 

18.020 

* 

* 

* 

* 

* 

^>,f^if^ifif^fif^^t'if^ifi<^ifififififififififipif-'f  #  #  #  rt  Jjc  &  #  * 

if  if 

if  if 

;,c  ;,c  ?-  .,» :jc  ^  jje  ijc  ^c 3^'  -^  s,%  ^c %z  -,«  j£  %z  -,«  ^ -f.  ^ 

:  '■f.tfirlf.if.lf.-iY-ZLififif-ififififif 

if  if 

RELEASE    POINT: 

* 

HORIZ.    DIST.    TO    TARGET:          1.720      NM 

^ 

* 

TIME 

:       33.944    SEC 

if 

* 

A/C    ALTITUDE 

:       4000.0       FT 

% 

* 

if 

* 

THE    TIME    NOW    IS: 

13.325 

* 

if 

1- 

^c  +  ^^^jje^e^jSt-s^^sJcjfc^sitaitjJc-t^tsjtsjejSesStsjt-c*^****^:******** 
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A 

A 

A 

A 


+     +     +     + 


QX?  Gig  02-1  030 


X-SCRLE-6.00E+00  UNITS    INCH. 
Y-SCRLE=9.00E-Q1  UNITS   INCH. 

CURUES   OF   *RC   RND   XDR0P,US«    TIME 
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AT    TIME=18.325    : 
XAT  =       3.46       ALT  = 


* 
* 


THE    TIME    NOW    IS: 

AT    TIME=18.325     : 
XDROP=       1.72 


4000.0 
18.330 


THE    TIME    NOW    IS:       21.332 


RELEASE    POINT: 

HORIZ.     DIST.     TO    TARGET 

TIME 

A/C    ALTITUDE 


1.721  NM 
33.978  SEC 
4000.0       FT 


THE    TIME    NOW    IS:       21.832 


* 

* 
* 


* 

* 


•  *i"   ~f  -»*  V  V  -»»  -i*  -r  ^  *i*  ***  *n 


.o  ,o  o,  J-  .l,  o.   yt  *  »'-  •-*-  ^-  >V  -JU  *V  "t  **e  ***  ■**  *  *•? 
V  *«■»  T  T  T  T  V  1*  T  'i*  ^  ^  *.»  ¥  ^  *p  *v  1*  "I*  '? 


%.'-«.•,.»',  f.  j,  -»-  -*-  ^-  .»,  »c  -jl.  v*  -j~  .v  ><  *• — '-  >»#■  -jl  - .  o,  o-  j*  *"<  j-  j,  ^  .',  j,  a  j,  o-  j,  ,',  ,l  »i,  v<r  v.  .«,  .'■  j. 


* 
* 


AT    TIME=2l  .832    : 
XAT=       3.07       ALT= 

THE    TIME    NOW     IS: 

AT    TIME=21.832     : 
XDR0P=       1.72 


4000.0 
21.837 


THE    TIME    NOW    IS:       24.839 


RELEASE    POINT: 

HORIZ.     DIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 


1.72  3  MM 
33.992  SEC 
4000.0       FT 


THE    TIME    NOW    IS:       25.339 


* 
* 


%*%%■%.%:  £$  ###  £^  ;{;  ^  ;|;  £#£:£#:&#£#£  j^;  #  A  **£*###$#£  # 


;| ■-■■];  t'f.  i'  *";  X  " 

* 
* 

* 
* 


4000.0 
25.344 


* 
* 
* 


$  $  #  #  *  *  *  $  #  ?.  ?.  *  #  #  *  *  a*  #  *  *  *  *  *  *  *  #  ^  *  *  $  #  *  *  # 

* 

* 

* 
* 

* 


AT    TIME=25.339    : 
XAT=       2.68       ALT= 

THE    TIME    NOW    IS: 

AT    TIME=25.339     : 
XGR0P=       1.72 


THE    TIME    NOW    IS:       2  8.346 


RELEASE    POINT: 

HORIZ.     DIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 


1.72  2  NM 
33.996  SEC 
4000.0      FT 


THE    TIME    NOW    IS:       28. 846 


* 


#$*%************%************************ 


93 


***^^^^5?^^*^:':^»****^^^*3!;^5^5!ejf:5ic^^*^-c****^>lc5^ 


* 
* 


AT    TIME=2S.846     : 
XAT=       2.29       ALT= 

THE    TIME    NOW    IS: 

AT    TIME=28.346    : 
XDROP=       1.72 


4000.0 
28.851 


THE    TIME    NOW    IS:       31.853 


RELEASE    POINT: 

HORIZ.     DIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 


1.723  NM 
33.995  SEC 
4000.0       FT 


THE    TIME    NOW    IS:       32.353 


* 


o.  -J,   s».  o,  „<•  o,  „■-  »«.,*»,..'.  v,  -■  v.  .  i..  , «..  „i,  «.if  v  V-  •-'-  -^-  -^  V-  V-  -J^  u-  ^  -  *.',  *■..  .-..<,  o-  -V  y  -  y .  U*  o-  *t,  »i.  -■-  dU 
*i*  -,»  .y.  .-,»  -f  f  i-  ~r  n*  ^r  i-  "P  "■*  if  *t*  'i*  T*  *TT  •*»*  *f*  ')"*  'c  ^*  *>*■  'i*  *v*  -.*  "r*  *.*  "p  *V  *>*  t*  *f  ^P"  1*  •"*  *'"  "i*  "t*  "T- 


*  NOT    ENOUGH     TIME    TO    COMPUTE.  * 
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PRELIMINARY       COMPUTATIONS: 


$  s{t  ***  5!=**  *****  ***  *  *-.  **  $*  #£#*  *3,V;  #  ***  *  *  *£#*##  fc 

*  * 

*  INPUT    DATA:  * 

*  VKTS=      400.00  DTNAV=  0.200  * 

*  XAT=  6.00  OTBAL=  3.000  * 

*  ALT=     18240.0  DTE1=  0.002  * 

*  DEG=         -15.0  DTE2  =         0.002  * 

*  TIME=  0.0  DTE3=         0.300  * 

*  YT=  0.0  IDNO=  11  * 

*  TC=       13.313  TMV=  3.000  *■ 

*  ATOL=  5.0  RLIM=  0.5  * 

*  ALIM=  200.0  0TE4=  0.004  * 

*  DTE5=         0.005  0TE6=         0.005  * 

*  * 

****if*^*^******^*****^**^*^:^  ******  ******* 

%v  y*  •*-  *v  *•'-  ***  y- -J'  j*  -a*  y- **>  j*  -ju  v.^-  o*  j,  ,>.  -j-  j-  v-  jf  j-  ^,  ,^.  v.  J,  j,  v-  v  -1'  ''•  ^'-  *v  Jr  v<-  •■f  -v  ^  %v 
*r  o*  -r  *r  -r  -T  *r  *v  *"~  -r-  *c  *.-  -**  -r-  *i*  *r  **-  *»*  f  '.*  tt  *T*  *>  *c  -r-  -r-  ■*.-  ***  t  2?  *r  *o  *v  ~c  -r  -/■  n*  -r  *r  •?  -? 

* 

* 

* 
* 

* 
* 

* 

*i*  *-p.  3£  *!*  *y^  ?,i  3JC  3|C  *,<  <yk  .-,1  3JC  *f.  3yt  3[C  «^  5Jt  3J£  3JC  *p  2,1  rjC  Jp 

3jc  *  *  t%  *  **  *  *  **  *  *  *  *  *  *  *  *  **  *  ***  **  *  *  *  *  *  *  *  **  **  J?  * 

*  RELEASE    POINT:  * 

*  HORIZ.    DIST.    TO  TARGET:  3.357      NM  * 

*  TIME  :  20.314    SEC  * 

*  A/C    ALTITUDE  :  13937.2      FT  * 

yu  Vjr 

*  THE    TIME    NOW    IS:       15.325  * 

*  * 

*}t**x********  ********************  ******** 


AT    TIME=    3.004 
XaT=       5.67       ALT= 

THE    TIME    NOW    IS 

AT    TIME=    3.004 
XDR0P=       3.11 

THE    TIME    NOW    IS 

AT    TIME=    6 .008 
XAT=       5.31       ALT= 

THE    TIME    NOW    IS 

AT    TIME=    6.008 
XDR0P=       3.20 

THE    TIME    NOW    IS 

AT    TIME=    9.012 
XAT=       4.94       ALT= 

THE    TIME    NOW    IS 

AT    TIME=    9.012 
XDR0P=       3.26 

THE    TIME    NOW    IS 

AT    TIME  =  12  .016 
XAT=       4.55       ALT= 

THE    TIME    NOW    IS 

AT    TIME=12.016 
XDR0P=       3.32 

THE    TIME    NOW    IS 


* 

a. 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*  *  $  *  ^  *  #  *  *  *  *  *  *  *  *  *  *  * 


17698.3 
3.006 

6.008 

17123.8 
6.010 

9.012 

16  516.5 
9.014 

12.016 

15876.3 
12.018 

15.020 
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LP 

o 


A 


+ 


+ 


+ 


+ 


X 


H 
O 


CI 

o 

o 


fe 


016' 


024 


G3C 


X-SCRLE 


60OOE+OO 


ICH 


UNITS    INI 
V-SCRLE-9.00E-01  UNITS   INCH. 

CURUES   OF   XRC   AND   XDRGP,US» 


TIME 
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* 


AT    TIME=15.325    : 

XAT=       4.09       ALT=    15133.1 


* 


THE    TIME    NOW    IS 

AT    TIME=15.325 

XDROP=       3.35 


15.330 


ThE    TIME    NOW    IS:       18.332 

RELEASE    POINT: 

HORIZ.    DIST.    TO    TARGET 

TIME 

A/C    ALTITUDE 


3.35  3      MM 

20.358    SEC 

13926.3       FT 


THE    TIME    NOW    IS:       18.832  * 

.  -J*  ~f*    ,>-  OL  -C  ■*'->*-  U,  +y,     I*  .H,  c,  J,   i,  J-  J,  a  J,  si-  ^  ^,  J,  V*  J.  J,  J*  J-  %V  -'•  JO  JL  V  *.<*  J-  ■*»•  V-  -V  >v 
•T-. '.'  V  'r  'i--!'  ''  'I'  V')'  T  1*  TTT-J*  *P  1*  -|*  -I*  1*  -V  'r  -TT  1*  *T  T  *i*  *»*  3C  ^*  *P  *V*  *r-  *i* 


*L.  ^  ^>.  JUJ^U.  .',  »'  ,i,  .r.  ^,  /.  >i.  .'.   .>  J,  v'r  X  O/  ^  «t  X  ^  ^  vl-  »V  vU  si,  J,  J,  X  A  J.  vV  •'•  xl-  -V  vi.  J.  -'-  U, 

*?*  *?  "C   *t*  1**1*  *i*  *t*  *c  -r  *»*  ^r  *•*  "r  *c  n*  *■(*•  *r  *t*  *r-  <Y*  *it  •»<*  *i*  *#*  *.*  v*  **■  *r  T  *r*  **.*  *r  *i*  *.*  -r  **»*  i*  *i*  *r*  •*!* 

*  NCT    ENOUGH    TIME    TO    COMPUTE.  * 

*  * 
^  *  $  *  *  *  *  *  *  #  *  $  $  *  *  *  *  *  *  *  #  *  *  *  ♦  *  *  *  *  £  ^  #  *  *  $  *  #  *  *  $  * 
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RUN    NUMBER    ONE: 


BEGIK2HG  OF  A  RUH  = 

THE  PROGRfiH  \m  P,  TABLE  OF  AIRCRAFT  P0S1TI0HS  FOR  4  DIFFERENT  RUNS, 

USING  THE  DOMB  HK82  UHRE1ARDED,1DH0=18. 

ENTER  A  RUN  HUHBLR  FROM  I  TO  4. 


:".  Sit--  : 
M'i'i"  J 


Jnrul  r[  hf  l«h  ju  hunr«hh  HI  Ir.K 
IDKO  HAS  TO  BE  FROM  )  TO  28. 
IF  YOU  IfAHl  TO  UlU'i   ,TYPI   CONTROL- C 

1DH0=  18 

EXECUTION  HIU   BEGIN  HKEN  CLOCK-8 

AT  TIHE^  81.8  SECONDS 

SPEED-  337.0S  KNOTS 

D1UE  AHGLE=  -36.85  DEGREES 

ftLTITUDE=7286.67  FEET 

DISTANCE  TO  TARGET-  3957.87  YARDS 
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AT  T1HE=  83.8  SECONDS 
SPEED-  415.82  KNOTS 
DIVE  AHGLE=  -29.82  DEGREES 
ALT)1UDE=6521.68  EEET 

0  TARGET*  3561.84  YARDS 


i  ■■}:■ 


L'JVi     Kh»i 


in 


t'-vir:!:-.-;      S ».'     !  hiSlM   I-     ■.«'  V.» .  vu     i!t!-.! 


AT    T  TkL'  •     GT/    1*4    Cm  f'fiUflC 

i  :  !         t   .:  :•:      '        :.:  I     .  '.'       :•'.    •.'.'ill'-.' 

SPEED-  445.84  KNOTS 

DIVE  ftKGLE=  -2V.84  DEGREES 

ALU  l Urn  :  jjsn.b-^.  nil 

.DISTANCE  TO  TARGE.  1=  2V88.84  YARD! 


START  TO  COMPU 


AC:r 


I'OIN" 


THE  TIME  HOW  IS:   68.3  SECONDS 
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START  TO  COMPUTE  RELEASE  I'D  I  NT 
THE  TIHE  NOW  IS'  68.9  SECONDS 


THE  TIHE  HON  IS=  16.4  SECONDS 


TIHE=J8.7  SECONDS 

DISTANCE  TO  TfiRGFT=  1864.06  YARDS 

DOHH  RANGE  TRAVEL=18?6.G6  YARDS 

FROH  THE  TABU   01   DATA* 

AT  TIHE =   16.7  SECONDS 

SPEED=  476.88  KNOTS 

DIME  ftHGLE=  -26.62  DEGREES 

ALTITUDES*?.  01  FEE! 

DISTANCE  TO  TARGET*  11163.66  YARDS 


FOR  THIS  POSITION: 
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RELEASE  POJHT- 

T1KE=J6.7  SECONDS 

DISTANCE  TO  TARGETS  864. 66  YARDS 

DOHH  RANGE  TRAVELS  876. 88  YARDS 

FROM  THE  TftBLI   OF  DAI  ft  = 

AT  TIHE=  18.7  SECONDS 

SPEED-  476.66  KNOTS 

DIVE  ANGLE-  "26.62  DEGREES 

ALT1TUDE=3847.81  FEET 

DISTANCE  TO  TARGET-  1863.66  YARD 


FOR  THIS  POSITION^ 

DOHH  RAHGE  TRAVEL=J887.82  YARDS 


BEG] HI  KG  Or   A  RUN' 

THE  PROGRAM  HAS  A  TABLE  Of   AIRCRAFT  POSITIONS  FOR  4  DIFFERENT 

USING  THE  ROM  HK82  UHRETARDED*1DH0=I8. 

ENTER  A  RUN  NUMBER  FROM  J  TO  4. 

RUN- 

/• 
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RUN    NUMBER    THREE: 


BEG I  HI HG  OF  ft  RUH  = 

THE  PROGRAM  HAS  ft  TABLE  OF  AIRCRAFT  POSITIONS  FOR  4'D1FFEREHT  RUNS, 

USING  THE  BORE:  KK82  UHRETARDED,IDH0=i8. 

ENTER  ft  RUH  HUKBER  FROM  1  TO  4. 

RUH=3 

IHPUT  HEAPON  ID  NUMBER  AFTER      '=■ 

I0K0  HAS  TO  BE  FROH  J  TO  28. 

IF  YOU  HftHT  TO  QUIT  ,TYPE  CONTRGL-C. 

IOHO=  16 

EXECUTION  HILL  BEGIN  WHEN  CLOCKS 

AT  i I  HE:  01. 6  SECONDS 

SPEED-  299.65  KNOTS 

DM  ANGLE-  60.66  DEGREES 

ALT I TUDE= 1995.68  FEET 

DISTANCE  TO  TARGET-  3532.67  YARDS 

AT  Tl 
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AT  TIME =  63.6  SECONDS 

SPEED-  299.65  KNOTS 

DIVE  ANGLE-  86.86  DEGREES 

ALTITUBE=I999.68  FEET 

DISTANCE  TO  TARGET-  3198.69  YARDS 


AT  TIHE=  85.6  SECONDS 

SPEED-  299.85  KNOTS 

DIME  ANGLE-  68.00  DEGREES 

ALTITUDES 999. 68  FEET 

DISTANCE  TO  TARGET-  2065.61  YARDS 


AT  T)HE:  6?. 6  SECONDS 

SPEED-  299.65  KNOTS 

DifUE  ANGLE-  88.88  DFGRFFS 

ALTITUDE- 1999. 68  FELT 

DISTANCE  TO  TARGET-  253?. 63  YARDS 


START  TO  COMPUTE  RELEASE  POINT 
THE  TIKE  HOW  IS'   00.9  SECONDS 
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.:  • 


START  TO  COMPUTE  RELEASE  POINT 
THE  TIRE  HON  IS=  68.9  SECONDS 


THE  TIHE  HON  IS=  16. i  SECONDS 

RELEASE  POINT: 

TIHE=ii.8  SECONDS 

DISTANCE  TO  TARGET=J863.66  YARDS 

DOH'H  RANGE  TRAUEL=iS68.65  YARDS 

EROH  THE  TABLE  OE  DATA= 

AT  TIHE:  il.e  SECONDS 

SPEED-  299. 65  KNOTS 

DIME  ANGLE-  66.66  DEGREES 

ALTITUDE- 1999. 60  FEET 

DISTANCE  TO  TARGET-  1065.6?  YARDS 


FOR  THIS  POSITION 
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RELEASE  POINT = 

TIME=11 .6  SECONDS 

DISTANCE  TO  TARGETS  863. 66  YARDS 

DOHH  RANGE  TRAUEL=18G6.65  YARDS 

EROH  THE  TABLE  OF  DATA= 

AT  TIHE=   11.8  SECONDS 

SPEEDS  293.6S  KNOTS 

[HUE  AHGLE=  68.66  DEGREES 

ALTITUDE=1999.88  FEET 

DISTANCE  TO  TfiRGET=  18G5.8?  YARDS 


FOR  THIS  POSITION^ 

DOHH  RANGE  TRAVEL=18C8.65  YARDS 


BEG1K1KG  OF  A  RUH- 

THE  PROGRAM  HAS  A  TABLE  OF  AIRCRAFT  POSITIONS  FOR  4  DIFFERENT  RUNS) 
USING  THE  BOMB  HK82  UNRETARDED*IDNO=10. 
ENTER  A  RUN  NUMBER  EROH  J  TO  4. 

kUH= 
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c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


*  FORTRAN  SIMULATION  * 


MODULES'  FUNCTIONS: 


* 
* 


MAIN 
INIT 
ICHECK 


DSPLAY 
POS 

BAL 

SETCAT 

DECODE 

TPAJ 

RUNGE 
DERIV 
INTER 

CQMP 

ORTFIT 


GOVER 

SIMUL 

PERFO 

PARTI 

CHECK 

PROBL 

IF  TH 

FINAL 

THE  D 

OUTPU 

CALCU 

UPDAT 

INTER 

BALLI 

INIT  I 

COMPU 

SET  P 

SELEC 

CALCU 

OF  SE 

AUXIL 

AUXIL 

COMMA 

PATTE 

CURVE 

DOES 

THE  A 

LOCK  I 

EXT?  A 

DOWNR 


NS 

ATI 

RMS 

CUL 

S  I 

EM. 

ERE 

LYt 

ANG 

TS 

LAT 

ES 

FAC 

STI 

ALI 

TAT 

ARA 

TED 

LAT 

LEC 

IAR 

IAR 

NDS 

RN 

S. 

A  S 

/C 

NG 

PCL 

ANG 


THE 
ON. 

THE  IN 
AR  RUN. 
F  THERE 
IF  SO, 
IS  TIM 
IF  THE 
ER  ZONE 
THE  RES 
ES  THE 
ITS  AIR 
ES  THE 
CS  MOOU 
Z AT  I  ON 


LOGIC  OF  THE  WHOLE 

ITIALIZATION  FOR  EACH 


IS  SO 
THEN  C 
E  TO  C 
A/C  WI 

AT  TI 
ULTS. 
AIRCRA 
SPEED. 
MAIN  M 
LES. 
PROCES 


LUTION  T 
HECKS  TO 
OMPUTE  A 
LL  3E  IN 
ME  OF  IM 


0  THE 

<^EE 
ND 

SIDE 
PACT. 


FT  POSIT 

CDULE  WI 

S  FOR  BA 
IONS. 
METERS  ACCORDING  TO  W 

NGE  TRAV 


ES  THE  DCWNRA 
TEO  WEAPON. 

Y  MODULE  OF  TRAJ. 

Y  MODULE  OF  TRAJ. 
TIQN  SEA 
CWNRANGE 


THE  INTERSEC 
FOR  A/C  AND  D< 


ION  ANO 
TH  THE 
LLISTICS 
EAPCN 
EL 


PCH 
TRAVEL 


TEPWISE  COMPA 
AND  DOWNRANGE 
FOR  THE  INTER 
ATES  VALUES  F 
E  TRAVEL  CURV 


RISON  BETWEEN 

TRAVEL  CURVES 
SECTION. 
OR  THE  A/C  AND 
ES. 


* 
* 

f 


y,j^^^^^^^^*^^^^^Jo^^***^^«*^^*«**^^*^^*;):**^^**.^*^*^^** 


^^^^^^oic^****^^^^^^^*^****^****^****^^***^*****-^***: 


* 

* 


VAPI AB 
VKTS  - 
HV 

HVA  - 
VV 

VVA  - 
XAT  - 
ALT  * 
TIME  - 
FTIME- 

HTIME- 
DTNAV- 
DTBAL- 
DEG  - 
YT 

STIME- 
ABV  - 
SABV  - 
IDNO  - 
XAC  - 
RTIME- 

XDRCP- 
DTNAV- 

DTBAL- 


LES: 
AI  R  SP 
HORIZO 
PRE  VI 0 
VERTIC 
PREV  10 
HORI  10 
ALTITU 
REAL  T 
SAVED 
MODULE 
PR  E  V I  3 
TIME  S 
TIME  S 
DIVE  A 
TARGET 
ST  ART  I 
ABSOLU 
SIN  OF 
IDENTI 
ARRAY 
ARRAY 
POSITI 
ARRAY 
TIME  S 
A/C  PO 
TIME  S 


FED  OF  A/C. 

NTAL  SPEED  OF  A/C. 

US  VALUE  OF  HV. 

AL    SPEED  OF  A/C. 

US  VALUE  OF  VV. 

NTAL  DISTANCE  FRC^  A/C  TO  TARGET 

DE  OF  A/C. 

I  ME  CLOCK. 

VALUE  OF  TIME  FOR  THE  DSPLAY 

US  VALUE  OF  TIME. 
PENT  BY  NAV  COMPUTER. 
PENT  BY  BAL  COMPUTER. 
NGLE  OF  A/C. 

ALTITUDE. 
NG  TIME  OF  SIMULATION. 
TE  VALUE  OF    DEG. 

ABV. 
FICATION  OF  WEAPON. 
OF  A/C  POSITIONS. 
OF  TIMES  CORRESPONDING  TO  THESE 
ONS. 

OF  DOWNRANGE  TRAVEL  VALUES. 
PENT  BY  NAV  COMPUTER  FOR  THE 
SITION  CALCULATION. 
PENT  BY  BAL  COMPUTER  TO  CALCULATI 


* 

* 
* 

* 

* 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


* 


* 


* 
* 
* 


DTE1  - 

DTE2  - 

DTE3  - 
DTE4  - 
DTE5  - 

DTE6  - 


TC 
TARP( 

XARP( 
TMV 

ATUL 

RLIM 


ALIM  - 


THE  DO 
POSITI 
TIME  S 
TRAMSF 
COMPUT 
TIME  S 
TRANSF 
COMPUT 
TIME  S 
COMPUT 
TIME  S 
EXECUT 
TIME  S 
TRAN5F 
COM°UT 
TIME  S 
SAVE  A 
THE  N 
CHECK 

-  6* OTB A 
2)-  TIME 
2)-  DIST 

-  TIME  I 


WNRANGE 
ON. 

PENT  BY 
ER  DATA 
ER. 

PENT  BY 
ER  DATA 
ER. 

PENT  BY 
E  THE  R 
PENT  BY 
E  CHECK 
PENT  BY 
ER  DATA 
ER  AND 
PENT  BY 
ND  REST 
AVIGATI 
NO.  3. 
L+DTElf 

AT  REL 
ANCE  TO 
T  TAKES 
N  . 

ANGLE  B 
GHT  LIN 

OF  A  H 
THE  A/C 

MOMENT 


TRAVEL  FOR  THIS  A/C 


THE  EXEC 
FROM  THE 

THE  EXEC 
FROM  THE 


COMPUT 
NAVIGA 

COMPUT 
BALLIS 


THE  EXEC  COMPUT 
ELEASE  POINT. 

THE  EXEC  COMPUT 

NO.  2. 

THE  EXEC  COMPUT 

FROM  THE  NAVIGA 
EXECUTE  CHECK  NO 

THE  EXEC  COMPUT 
ORE  VALUES  WHEN 
ONAL  COMPUTER  AN 


ER  TC 
TICNAL 

ER  TC 
TICS 

ER  TC 

ER  TO 

ER  TC 
TIONAL 
.  4. 
ER  TC 
CALLING 
D  EXECUTE 


EVAS  I 
LI  MIT 
THE  SI 

RADIUS 
WHICH 
AT  THE 
LIMITING  ALT  I 


DTE2+DTE3+DTE4+0TE6. 
EASE  POINT. 

TARGET  AT  RELEASE  PCINT. 

TO  THE  A/C  TO  START 


ETWEEN  A/C  PATH 
E  OF  TARGET. 
EMISPhERE  t INS  ID 

WOULD  BE  IN  DAN 

OF  IMPACT. 
TUDE  FOR  THE  A/C 


AND 
GER 


UNITS: 

DISTANCES 

ALTITUDES 

ANGLcS 

TIME 

SPEED 


NAUTICAL 

PEET. 

DEGREES. 

SECONDS. 

KNOTS. 


MILES 


THE  VALUES  OF  DTE i , DTE  2 , DTE  3 , DTE4 , TMV , 
ATOLtRLIM  AND  ALIM  ARE  ASSUMED  IN  THIS 
SIMULATION.  MOST  OF  THESE  ARE   DEPENDANT 
UPON  THE  TYPE  OF  WEAPON  . 


* 
* 


* 

* 
* 

* 

* 

a. 

* 

•I* 

* 


S(t  if  if  if  $  if  *  *  *  £  £  if  *  *  if  *  #  *  £  *  #  -f  #  #  *  *  -  'f  *  *  #  *  £  £  =fc  #  *  #  *  *  *  *  *  *  *  *  t-  *  t'  *  = 


*  ={c  £#  £  *  ^  £  £  *  £*  £  if  >f  £  *  v  if  *  *#  $  $  if  if  #£  #  *  *  if  *  #  *  #*  if  if  if  *  #**  *#  *  £*  #  *  if 

*  MAIN  PROGRAM   -     IT  SIMULATES  THE  * 

*  OPERATION  OF  THE  WHOLE  SYSTEM.  * 

*  * 


INTEGER**  ITB( 12)/12*0/ 
REAL~4  RTB(28)/28*0.G7 
ECUIVALENCE  ( T I T LE , RTB( 5 ) ) 
REAL*8  TI TLE( 12) /'CURVES  0' 
1  •  V  S .  TIME'/ 
COMMON/ DSP/FT  I  ME ,XP,TP,AARP 


CCMMGN/CHK/ATOLt 
CCMMON/ SAV/SHVA, 
CCMMCN/TAO/T,X 
CCMMON/CLK/TIME, 
CCMMCN/ INI/SABVt 


TC, TMV t RLIM 
SXAT 


•F  XAC  AN' , «D  XDROP, ' , 


ALIM 


ST  I  ME 
HVAt  VVA,  HTIME,  XAT,A3V 
CCMMON/ACT/VKTS, ALT,OEG,YT, IDNO 
CCMM0N/VEC/RTIME(4) ,XDR0P(4) ,XAC(4) 

CCMMON/DTS/OTNAVtDTBALtDTEl ?DTE 2 ,DTE3 , DTE4, CTE5  ,  DTE6 
DIMENSION  XARP( 2) ,TARP( 2) 

«^^**^*^^*^^*^*^^**^**>!c*************^**^^******^**** 
if.  *~ 

*  INITIALIZATION.  * 

if.  # 
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c 
c 


c 
c 
c 
c 
c 
c 

c 

c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 


****#*********************************£**:$::{;$  $*$£;£;{£  jjcjfc 

16       CALL     INIT 

IF    (DEC. GT. 60.0)    GO    TO    17 
WRITE (6, 2  J 

2  FCRMAT( ' 1 • ) 
WRITE<6,3) 

3  FCFMAT(///) 

4  FCRMAT(/) 
WRITE<6,8) 
WFITE<6,5) 
WRITE(o,31) 
WRITE(6f 12)VKTS,DTNAV 
WPITE(6f14)XAT,DTBAL 
WRITE(6,13)ALT,DTE1 
WRITE<6,15)DEG,DTE2 
WRITE (6, 11 )TIME,DTE3 
VjRITE(6,30)YT,  IDiNIO 
WFITE(6t33)TC,TMV 
WRITE(6,32)  ATOLtRLIV 
WRITE( 6,34)ALIMt  DTE4 
WPITE(6,35)DTE5,DTE6 
kRITF<6t5) 
WRITE(6,8) 

31   F0RMAT( 25X,'* 

12  FGRKAT{ 25X* •* 
if  ) 

14  FGRMAT( 25X,«* 
1«  ) 

13  FORMAT ( 25Xt »*' 
1»  ) 

15  FCRMAT(2  5X,»* 
1«  ) 

11   FCRMAT( 25Xt* * 

1»  ) 
3  4   FORMAT ( 25X, »* 

i  •  ) 
30   FOPMAT(25X,«* 
3  2   FORMAT (25Xt§* 

I  '  ) 
33   FCFMAT(25X,»* 

II  ) 
35   FORMATt 25X,»* 

1  '  ) 
K=l 

ICHEKK=  ICHECK(M) 
IF(DEG  .GE.  0.0)  T IME  =  T IME+DTBAL 

-f  'i*  -r  -V  *r  ***  V-  ***  *r  *r  *r  'i-  *v  *r  "r  **r  */•'>*  *]*■  n4  «v  *.-  -v-  ■^-  *i*  *<>  -i*  -ir  3r  *»*  »r  -v  **■  *>*  -v  ***  *r  -^  -*«  'i-  -,-  *r  ***  -v  f  *r  *c  i*  -^  *f*  *r  *v 

*  * 

*  ICHECK    SUBROUTINE    CALLS    BAL-    UPDATE    CLOCK.  * 

-a  i* 

V*s,l**s?***********  ***********  **;********************** 

IFdCFEKK    -EQ-    lJ^GO    TO    18 

*  IF    THIS    STATEMENT     IS    TRUE, THERE    IS    NO  * 

*  SOLUTION    TO    THE    CURRENT    DATA.  * 

**  ********  #*:£*******************************  ******** 

N  =  2 

ICHEKK=  ICHECK(M) 
*****#:£*****#**#***:£*********:£********************** 

*  UPDATE    CLOCK.  * 

*  * 
**  **  *  **#  *  *  ****  **  *  *  **  **********  ************ ********** 

TIME=TINE+DTBAL+DTE4 

IF(  ICFEKK  .EQ.  2 )  GO  TO  18 

**********$************:*******;?:********************* 

*  * 


' , 14X. 
'  »3X, 

,  'INPUT 
'    VKTS= 

DATA:  •  ,14! 
1  tF8.2,4X, 

<,'*^) 

'DTNAV= 

' »F8.3t4Xt ' 

'  f3X, 

1        XAT= 

'  ,F8.2,4X, 

'DTBAL= 

1 ,F8.3 ,4X,« 

1 i 3X, ' 

1        ALT  = 

' ,F8. 1 ,4X,' 

DTE1  = 

1 ,F8.3T4X, • 

',3X, 

'       DEG  = 

'  ,F8.1  ,4X, 

'    DTE2= 

1 yF8.3t4Xt ■ 

'  ,3X,  ' 

TIME= 

1  tFB.  1,4X, ' 

DTE3  = 

1  ,  F  8  .  3  ,  4  X  ,  ' 

1  »3X, 

ALIM=' 

,F8.1 ,4X, 

DTE4=" 

,F8.3,4X,' 

•♦3X,' 

1 , 3X,  ' 

i          YT  = 
AT0L=' 

1 ,F8. 1 ,4X,' 
,F8. lt4Xf' 

'     IDNC=( 
RLIM=' 

'  ,I8,4X, « *• 
tF8.1 r4X,« 

' ,3X,' 

TC=' 

,F8.3,4X,' 

TMV= 

'  TF8.3,4X,  ' 

• ,3X,< 

DTE5  =  ' 

,F8.3,4XT' 

DTE6=' 

1  ,F8.3t4Xt ' 
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c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


GET    THE     INITIAL    FOUR    POSITIONS    OF    A/C    AND 
CORRESPONDING    DCWNRANGE     TRAVELS. 


*  if 

#fc^;<:  ##*******£#*  ******  **************£#5!£:!c>)c:{t*:{:  £**:<-.*#£# 


WRITE(6,8) 
WRITE(6,5) 
W  P  I T  E  (  6  •  2  3  ) 
2  3  FCRMAT<25X,»*«  ,6X  ,  • PREL IMINARY 
WPITE(6,5) 
DC  1  1=1,4 
FTIME=TI,ME 


COMPUTATIONS: »t7X, •*•) 


*  ■*- 

*  CALL    PCS    TO    GET    SIMULATED    A/C    POSITION.  * 

*  * 

CALL    POS 
C£LL    DSPLAYQ  ) 
WPITE(6t5) 
RTIME( I )=TIME 
XAC( I )=XAT 


n£  3|8  ^r  ^r  *r  *C*  •v  V  *r  *£  5?  *r  *r  -y-  ^r  *r-  V 

*         UPDATE    CLOCK. 


*  * 

OL,  Vr  &   OU  WU  W   JU  OU    o-  *«,.'.   »\,    %',  OL.    WV  O-    ,-,    „',    - 1.    U,    -J.    .•-    -' .   U.     O ,  .-.       '-  J,    O-  U-  V-    ■■  V   WL    J-    J     J-  -'-    ,'      -J  -  >  V   VU   -J-   V-   WU    *C  -*•  VU  V.-  J*  WU  W»-    OU 


TIME=TIME+DTE1 
C/iLL  DSPLAY<2) 
WRITE<6,5) 

v    -Of  v'.  -J-  g^  >'-  ^,  ,-,  *o  *i .  ^.  ^u  j-  vr  y-  v-  -<,  j,  v-  ou  -<,  ,j-  -i-  w  -■.  gc  -■ .  v    «j.  ..•.  o.   ,^  -■-->-  -j-  ,  ,  wu  W.  »u  -u  .j,  .«.  ,.u  »i-  v.  a-  ^  »u  -V  »'-  Of  wu 
n*  *r  f  ""ir  ^r  3r  -v>  ***  t*  *■*  *r  ^*  *v  *•*  ■nr  i*  *\-  *i*  ^*  ***■  -v  *p>  i"YvV  ytttty  -v  *•"  '•*■  **>"  *»*  n*  *>*  *<•  "«"*  ***  '•*■  "  *•*  *i*  i*  i*  n*  *r  *»*•  n* 

* 


CALL  BAL  TO  G 
IF  RELEASED  A 
A/C     POSITION. 


ET    DOWNPANGE    TRAVEL    FOR     WEAPON 
T    TIME    CORRESPONDING    TO    LATEST 


-»r  -r  t  -?  7&  ',c  *p  -v  ^r  'S  ~f  -.-  •>*  ^  *£f  *r-  -i»  ^r  *r  *<*  *»"  *r  -Y-  -v  *v  '«»  n*  i-  -%-  -v  *?  -r  -^  V  -v  *r  *■»-  '»*•  *r  *r  ^  3."  'i»  V  -n  -^  *^  J.*  -^%  ^  ^r 

C/5LL    BAL 

XCROP( I )=X/6080. 
C^LL    DSPLAY13 ) 
WPITE(6,5) 


-v  *r  *?  ^r  V  «v  *y>  *r  *T-  ^  ^  •*♦*  *r  n*  *i*  n*  '(- 

*         UPDATE    CLOCK. 

V  if  if  if  if  *  *  =r  *  *  *  *  5r  *  X;  *  =^ 


TIME  =  TIME*-DTBALfDTE2 
CALL    DSPLAYI2) 
WPITE(6t5) 
WFITE(6,5) 
WRITE<6»8) 


OBTAIN    THE    RELEASE    POINT  * 

ROM    THE    LAST    FOUR    A/C    POSITIONS  * 

DING    DOWNRANGE    TRAVELS.  * 


CALL  INTER  TO 
EXTAFOLATED  F 
AND    CORRESPONI 


TARP(l)     AND    X 
SUBROUTINE    TH 


ARP(  1)     ARE    NEEDED    BY    THE 
AT    PLOTS    THE    GRAPHS. 


CALL    INTER(XP,TP) 
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c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 


T*RP(1)=0.0 
XARP( 1) =0.0 
T£RP<2, =TP 
XARP(2) =XP 

*         UPDATE    CLOCK. 


$  t-  *  *  *  #*  **  *  *  *#  £  *  *  *  *  *  *  #*  *  £  *  !{t  ^;^  £  $  *  #£  *  #  $  # 


%IL.  ,>,  o-  J,  *«-  .'.„.....',  o-  V-  -J-  •'-  - 

nr  ***  ***  *c  -v  *+•  *r  *p  -i*  *<*  *r  -i*  -V*  - 

TIME=TiyE+0TE3 
ITE( 1 )  =  1 
ITB(2)=5 
ITB(3)=6 
IT6(4)=9 
RTE<1)=6. 
RTB(2)=0.9 
ITE( 1)=2 
ITB<2)=2 
ITE(3)=6 
ITE<4)=9 
ITB( 1)=3 
ITB(2)=1 
ITB<3)=6 
ITB(4)=9 
SAVET=TIME 
SAVEH=HTIME 
SAVEK=VKTS 
S£VFA=HVA 
SAVEV=VVA 
. S/WEX  =  XAT 
SAVEL=ALT 
TIME=TP 

N*    *U  J-   J.  J.   -J-   J.   •'.   V-   -i,   4-  S>'  »'■   V'-   V-  >'    X1.   .'•   J-  ^   ,'-  J,   O,   J.  »'.   *V   O*  •'/   J-  J-  %l*  O,   A   .'•   J-   .',  X   J-  *"f   <''  V.  %1,     Of       *l.       -J,    lJU      -*.  ^U     %t,  OU   „*-   ,«- 

-,.  <v  ^  A*  *i-  -.-  V  «s*  *r  'jt  -y*  -r  -o  -r-  1*  A*  i*  Jr3r'PT'v  T*  *m  *F  -r  -r  -v  *r  -v  -*<  -<*  -r*  -»*  -t*  ~«*  -v  3?  *■?  -v*  V  V  *r  ™  A*  VV^  V  -?  *»-  V 

^*  "A 

*  CALL    PCS    TO    GET    A/C    ALTITUDE    TC    BE    SHCWN  * 

*  BY    DSPLAY    SUBROUTINE.  * 

*r  T  ^P  *r  V1  ".  V  ^i*  X*  *?  *S^  *i*  "^  ^r  ^r  *i*  'r  "r  *V*  *i*  *i*  *?  i*  *r  A*  ■*»*  A*  -i*  A*  "V  *?  t*  *<*  A**  n*  -v  *■>*■  X^  *n  ^!*  'o  *g*  "r  -i*-  *P  *p  A*  orfc  "^  *r*  n*  *fi 

CALL  POS 
6£RP=ALT 
TINE=SAVET 

-.'-  V-  ■»*   ■»*-  *»V  -.*-  -'  -  ««A#>  ■»''  Of  -J»   *J-r   *1>   Jl,  n'»  »'...  O*  «Jlr  0«  >' .-  W  »#*■  •.'»  -J'  «V  "i^  "J*  **■-  «*s   «/*  ■**-  V-  »»V  "  '*  **•-  ■A'  V'  '"^  V'  •  V  "■'"  ~* '  --"   -,''   "•'*  *'■•     -'-  "-'»  •"'"  >"'  •^'■f  O* 

n*  A*  "r  n*  •**■  A*  "T1  *r  n*  *r  t* *i*  *>-  ^*  *i*  *r  ***  ■*»*  i*  A*  ■**■  *«•«  -tt  *r  *i*  A-  *r  *r  'r  *r»  *r"  ■nr  ^  vr  tt  r  v  t  r  ^,;^  t  v  r  *r  *•«*  *r  A*  -.**  *r 


* 


UPDATE    CLOCK. 


TIME=TIME+DTE6 

HTIME=SAVEH 

VKTS^SAVFK 

HVA=SAVEA 

VVA=SAVEV 

XAT=SAVEX 

ALT=SAVEL 

WRITE(6,8) 

CALL    DSPLAY<4) 

C£LL    DSFLAY(2) 

WRITE(6,5) 

WRITE(6,8) 

M  =  3 

ICHEKK=  ICHECK(M) 

IF(ICHEKK     .EQ.    3) 


GO    TO    18 


^^iiu^Ji:*^^^******^^  *^^j)c^**«^^^3!.-3,H>jt^;3!£****j}c*--,,t:!t*****^*^*** 


* 


FPCM    NOW    ON, THE    A/C    POSITIONS    AND 
CORRESPONDING    DOWNRANGE    TRAVEL    OF    WEAPON 
ARE    UPCATED, TOGETHER    WITH    A    NEW    RELEASE 
POINT    CALCULATION. 
THIS    PROCESS    GOES    ON    UNTIL    THERE     IS    NO 
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C  *         MORE    TIME    TO    COMPUTE    THE    SOLUTION.  * 

C  *  * 

Q  ********  *****************************  #£5;;$**  ******### 

C 

J  =  3 

43       IF(MOD(J,3)     .NE.     0)     GO    TO    6 
WRITE(6,2) 
WRITE (6, 3) 
GC    TO    7 

6  WRITE (6, 4) 

7  DC    42    1=1.3 
XAC(  I  )=XAC(  1+1 ) 
XCFOP( I )=XCRCP( 1+1) 

42      RTIME( I )=PT!ME( I +1 ) 
RTIME(4)=TIME 
M=4 

ICHEKK=  ICHECK(M) 
IF(  ICFEKK     .EQ.    4)     GO    TO    18 
CALL    PCS 
XAC(4)=XAT 
WRITE(6,8) 

8  FORMAT ( 25Xt • *************#*#***#**«********#*********i 
1) 

WRITE(6,5J 
5  FORMAT( 25X,f*» ,39X,'*1 ) 

FT  IME  =  TIME 
CALL    0SPLAY(1  ) 
C 

Q  **************************************************** 

c  *  * 

C  *  UPDATE    CLOCK.  * 

C  *  * 

Q        **************************  ************************** 
C 

TIME=TIME+DTE5 
WRITEt  6,5) 
CALL    DSPLAY(2 ) 
WRITE(6,5) 
CALL    BAL 
XCP0P(^)=X/6080. 
C 

I  ?T  2,*  i,-  Jp  *,£  -,*  J-  -,-  3j<  *<-  *o  *i*  *i»  -r'  -r  *i*  -i*  -v  *r*  T-  *  -  *r  ''r  -*-  '.'»  ~>*  -i*  '.'  '>*  -i*  v  i*  -i^  '.*  'i*  -*'  "r-   '."  ^I*  *t*  *,*;,-  J^f  "^  -/*"•  *i^  *i*  't**  ^r  -*t^  *»* 

c  *  * 

C  *  NOW    THE    ARRAYS    ARE    UPDATED.  * 

C  *  * 

c  *  *  ^  *  *  ***  *  *  **  *  *  **  *  *  *  *  **  *  *  *  *  **  *  *  *  *  **  *  **  *  *  *  *  *  *  *  **  *  **  *  *  * 

C 

C£LL    DSPLAY(3) 
WRITE(6?5) 
C 

*r  ^r  'i*  *r  n5  -t*  ****>  ^Sp^Jj*^  v  3?  *v  *r  r  vt  t  ¥  T'T'^  v  vv  'r  t-  V  *r  *r  -r  ^r  ^  *r  *r-  V  *v*  t*  V  *i*  *r  *r  "<*  i*  i5  V  -i»  a*  -^ 

r  &  *^ 

C  *         UPDATE    CLOCK.  * 

C  *  * 

Q       **************************************************** 

c 

TIME-TIME+DTBAL* DTE 2 

CALL    DSPLAY(2) 

CALL     INTER(XPtTP) 

TA«P(2)=TP 

XARP(2) =XP 
C  **************************************************** 

C  *  * 

C  *         UPDATE    CLOCK.  * 

C  *  * 

£         **************************************************** 

TIPE=TIN.E+0TE3 

SAVET=TIME 

SAVEH=HTIME 

SAVEK-VKTS 

SAVEA=HVA 

SAVEV=VVA 
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SAVEX=XAT 
SAVEL=ALT 
TIPE=TP 
C 

C  *         CALL    PCS    TO    GET     A/C    ALTITUDE    TC    BE    SHGWN  * 

C  *  BY    DSPLAY    SUBROUTINE.  * 

C  *  * 

c 

CALL  POS 
AARP=ALT 
TIFE=SAVET 

C  *  * 

C  *         UPDATE    CLOCK.  * 

C  *  * 

TIME=TIME+DTNAV 
HTIME=SAVEH 

VKTS=SAVEK 
HVA=SAVEA 
VVA=SAVEV 
XAT=SAVEX 
ALT^SAVEL 
CALL    DSPLAY(4) 
CALL    DSPLAY(2) 
WRITE (6,  5) 
WRITE (6, 8) 
N  =  3 

ICFEKK=  ICHECK(M) 
IF(  ICHEKK     .EQ.    3 )     GO    TO    18 
J  =  J  +  1 
GO    TO    4  3 
18       WPITE(6,4) 

GO    TO( 20,21,22,21 ), ICHEKK 

20  CALL    DSPLAY(5) 
GO    TO    4C 

21  CALL    DSPLAY(6) 
GO    TO    40 

22  CALL    DSPLAYC 7) 
40       GO    TO    It 

17       STOP 
END 
SLBROUTINE     INIT 

Q  **************************************************** 

c  *  * 

C  *  INITIALIZATION    PROCESS.  * 

C  *  * 

Q  **************************************************** 

COMMON / CHK/ A TOL, TC , TMV ,RL I M , AL I M 

CC^ON/CLK/TIME,  STIME 

CCMMON/INI/SABV,  HVA,  VVA ,  HTIME,  XAT,ABV 

CCMMON/ACT/VKTS, ALT,DEG,YT, IDNO 

CCMMCN/DTS/DTNAV ,DT6AL,DTE1 , DT E 2 ,DTE 3 ,DT E4 , DTE5, DTE6 

READ(5, 1 ) DEG, VKT S, X AT, ALT, YT, IDNO,  TIME 

1  FCRMAT(7G10.0)  ,  e  „,_, 
READ(5,2)0TNAV,DTBAL,DTE1,DTE2,DTE3,DTE4,DTE5,DTE6 

2  FORMAT( 8F6.3) 
READ(5,3)AT0L,RLIM,ALIM,TMV 

3  FCPN,AT(4G5.0) 
STIME=TIME 

AEV=A3S(DEG*0.01 7453) 
HVA=VKTS*COS( ABV) 
SABV=^SIN(  ABV  ) 

IF  (DEG.GT.O.O)  SABV=-SABV 

VVA=VKTS*SABV 

HTIME=TIME 

TC=b.*DT3AL+DTEl+DTE2+DTE3+DTE4+DTE6 

RETURN 
END 
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c 
c 
c 
c 

c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


FLNCTION     ICHECK(L) 

*  CHECKS: IF    THERE     IS    A    SOLUTION    TO    THE     PROELEM 

*  IF    THERE     IS    TIME    TO    COMPUTE     IT. 

*  IF    THE     A/C    WILL    BE    IN    DANGER    ZONE 


•JU  *A{  ^U  -ju  y  ^u  v*>  J* 

CCMMON/ 

CCW.CN/ 

CCMMON/ 

CCMMON/ 

COMMON/ 

CCMMON/ 

CCMMON/ 

COMMON/ 

CCMMON/ 

ICHECK= 

GO    TO    ( 

IF(DEG 

ALTM=AL 

REL=ALT 

ALF=ATA 

ATOLR=A 

IF(ABV 

AL=ALIM 

TLIM=(A 

IF(TLIM 

RETURN 

CALL    BA 

IF(XAT 

RETURN 

ICHECK= 

RETURN 

TOC=TC 

IF(DEG 

DTOL=HV 


*%***%*****#***********%**&***$  **%*.■*** 


* 


Tv*r-p  -v 


DSP/F 
CHK/A 
SAV/S 
TAD/T 
CLK/T 
INI/S 
ACT/V 
VFC/R 
DTS/D 
0 

1,2,3 
.GE. 
T/608 
M/XAT 
M  REL 
TOL*0 
.GE. 
/6080 
LTM-A 
.LT. 


TIME  ,XP,TPTAAPP 
TOL,TC,TMV,RLIM* ALIM 

HVA, SXAT 

»X 

I  ME, ST  I  ME 

ABV,     HVA,     VVA,     HTIMEt     XAT,ABV 

KTS, ALT,DEG,YT, IDNO 

TIME ( 4)  , XDR0P(4)  ,XAC(4) 

7NAV,DTBAL,DTE1,DTE?,DTE3,DTE4,DTE5,DTE6 

,4)  ,  L 

0.0)     GO    TO    5 

0. 

) 

.017453 

(ALF-ATOLR))    GO    TO    6 

L)*3600./VVA 
(TC-DTBAL) )     GO    TO    6 


LT.     (X/6080.) )    GO    TO    6 


.LT.    0.0)     TOC=TC-DTBAL 
A*TCC/3600. 


*r   t»  n*  T  -v  *r  ^r'l*  -v  -v  i*  *v*"(-  *r  -v  ir  -v*  -<*  *i>  i*  **"•  Av  ■n4  *v  v-  •*•*  *r  t-  nr  *r  "V  *r-  V  i"  *r  A*  ^  ***  *r*  «v  *y*  n*  t-  -v-  t  or*  i*  t  -i-  *r-  **  ■ 


HERE 
THE 
POIN 
AS    S 
TIME 


THE 

TS.    ' 

OON    i 
TO 


DOWN 
T  I  -1 
HIS 
S    PO 
FIND 


RANGE    TRAVEL    IS    CALCULATED    FOR 
E    OF    COMPUTATION    OF    THE     FOUR 
IS    DONE, TO    HAVE    THE     INFORMATION 
SSI3LE,IF    THERE     IS    GOING    TO    BE 
THE     SOLUTION. 


DTOL- 


XDR    - 
XAT    - 


DIS 
COM 
EXT 
EST 
POI 
DIS 


E    THE     A/C    TRAVELS    DURING    THE 
TION    OF    THE    FOUR    POINTS     AND 
LATION    OF    THE     SOLUTION. 
ED    DOWNRANGE    TRAVEL    AT    RELEASE 


TANC 

PUTA 

RAPO 

I  MAT 

NT. 

TANCE    FROM    TARGET    AT    PRESENT    TIME. 


* 

* 

■J, 

* 

SAVET=T 

SAVEH=H 

SAVEK=V 

SAVEA=H 

SAVEV=V 

SAVEX-X 

SAVEL=A 

TIME=TO 

CALL    PO 

CALL    8A! 

XDR=X/6 

TIME=SA 

HTIME=S 

VKTS=SA 

HVA=SAV 

VVA=SAV 

XAT=SAV 

ALT=SAV 

IFUXDR 


■J. 

* 


IME 
ITIME 

KTS 
IVA 

VA 

AT 

LT 
IC 
IS 
A. 
.080. 

VET 

AVEH 

VEK 

EA 

EV 

EX 
'EL 
;  +  DTOL 


)     .GT.    XAT)     ICHECK=2 
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c 

# 

c 

* 

c 

* 

c 

* 

c 

'r 

c 

* 

c 

* 

c 

-V 

c 
c 
c 
c 
c 


1 

24 

25 

2 
27 


26 

4 
8 
11 

9 

14 

12 

13 


5 
19 


RETURN 

S  C  1  =  X  P*  X  P 

AARPM=AARP/6080. 

SQ2=AARPM*AARPM 

SG3=(RLIM+VKTS*TMV/36  00.) 

IF(SQ3    «GT.     (SQH-SQ2M     IC 

RETURN 

DTCL=HVA*2.*(DTBAL+DTE2+DTE3+DTE5+DTE6)/ 

<»'-    »■*   J-   OU      J*   *S*  J*     J  -    «J-      JL»    «.'/■  -*1*-     -   ^    *'  -   v  *■    >.'  -     ,.'  .     .i_    «V    •>'-   O       -''    -V    ■»'  -    J-    Of  -■  '* 
7,»    «,*  ^*    f|»    ^^»    *■(»    *^    J,»    ^»     ^fc    «yi  f,'     *|*    *^»  J»|t    .-,-     «y*    if*    rfi    ,,-   «.%~     ^,»    ^    ,,»    .,-.     ry>   -,-. 


*(RLIM«-VKTS*TMV/36  00.) 
HECK=3 


HERE    t INSTEAD    OF    USING 
DOWNRANGE     TRAVEL, IT     IS 
FROM    LAST    TWO    VALUES. 
TIME 


BAL    TC    COMPUTE 

LINEARLY    EXTRA 

THIS     IS    DONE    TO 


3600. 

#  #  ■&  3^  ^c  sjc  ^:  ^:  £  ^  %. 
a* 

THE  * 

POLATED  * 

SAVE  * 


£#*  * *  *  $*  *  #  *## * 


DSR=(XDRCP(3) 

RTM=RTIME(4)- 

XDP=X0kCP<3) + 

IF((     XDR  +D 

RETURN 

END 

SUEROUT INE    DSPLAY  (  I 


*P  t  'r* 

-XO 
RTI 

DSR 
TOL 


*<■*  *r  i*  — 


ROP 
ME( 
*RT 
)     . 


(2) 

3) 

M 

GT. 


j,  .',  o,  j,  j-  o,  j,  xi,  j,  j.  »•-  x  ,1.  ,^,  .',   .'-  j-.  «v  ■*..  o>  o.  gu  * 
v*  nr  *r"  T1  *t*  *f  nr*  ■*/*  *r  ***  ix  ***  ^r  *p  *<*  "f  t>  "(*  ip  *r  *■**  '«■•  - 

)/(RTIME(3)-RTIME( 2) ) 


XAT)     ICHECK=4 


-  o^  -i,  j-   J.J, 


.     J-      »'.     --'-    -J-     O-    »'-    «J         „'  -     J-     O*    W    .   -      ,  y    - 

.   *y.   -v   *y  'i  *    *y  T*  TP  *V  *v"   'i*  •"**  **~  *T"  ' 


'  Is  -V 


) 


•j-  j-  -'.  v,  a*  .a*  o.  -'-  j-  ol.  »'.  -'.  - ,  -■-  -■-  j-  »■-  »•-  j-  -•  -  -■-  -•- 
3^  -r  i-  -i- -**  *r  *■*  «***  -r  i»  t»  *c  *r  *r*  -v-  -r-  *i*  v  ^  *r  t*  *r 


OUTPUTS    THE    RESULTS. 


. »-   »>-  J,   -J-  V-  -■-   o,   »V  OU  *•,  JU  «JL-  »V  J*  O*  -J,   -  *-  «t,  .JL.  «C  o-   J-  O-  J*  -'-    o..  ^', 
'  ***  1*  *"«*  *Y-  A*  *r*  *V  *!*"  ^»  A*  *i*  'i*  T*  ***  "^*  *■»"  T  **■*  *¥*  T*  *>*  ^"  *"*  *<^  •T'  T-  "I* 


J-      J/     -Kr       J, 


J,   .'.    J„    V-  -'»  -*--•--'-»'-   Vc  -J1-   -''  t1-  ^V  »!'   *■''    ■"'-   -'-   -'-    *'-  *'*  ""*-  -1     •*'■■   -]      ■  '•    ■ 

1%    ,,-    ,,fc     >,*   *j^.    »^~     r^K    *t*    *(i    >|^  J,-*   ^»  >]>.    ^|k    »^v     *,»    j^V   »p     *(*    *-,»   *f*    *|*  f1^*.   >|*   »p.     *y>>    4 


CCMMCN/ 
CCMMON/ 
COMMON/ 
CCPMON/ 
CCMMON/ 
CCMMON/ 
CCMMON/ 
GO  T0( 1 
WRITE(6 
FCRMAT( 
WRITE(6 
FCRMATC 
GO  TO  1 
WRITE (6 
FCRMAK 
GO  TO  1 
WPITE(o 
XIS=X/6 
WRITE(6 
FORMAT ( 
GC  TO  1 
WRITE(6 
FCRMAK 
FOFMATt 
WRITE (6 
FCRMAK 
WPITE(6 
F0RMAT( 
1«  MM', 
WRITE(6 
FORMAT ( 

WRITE(6 
FORMAT! 

It  2X,«*« 
WR1TE(6 
GC  TO  1 
WRITE(6 
WPITE(6 
WPITE(6 
FORMAT! 

16X,1*1  ) 
WRITE(6 
WRITE(6 


TAD/ 

DSP/ 

CHK/ 

CLK/ 

INI/ 

ACT/ 

VEC/ 

t2  t3 

,24) 

25X 

,25 

25X 

0 

,27 

25X 

0 

,24 

080 

,26 

25X 

0 

,11 

25X 

25X 

,9) 

25X 

,14 

25X 

2X, 

,12 

25X 

,13 
2  5X 
) 
til 

0 

,8) 

,11 

,19 

25X 

,11 

,8) 


T,X 

FTIMEf XP»TP, A A 

ATOL,TC,TMV,RL 

TIME, ST  I  ME 

SABV,     HVA,     VVA 

VKTS, ALT,D?G,Y 

RTI ME (4) .XDROP 

,  4  ,  5  ,  6  ,  7  )  ,  I 

FT  IME 

•*« ,6X, 'AT    TIM 

XAT, ALT 

•*•  ,6X,  »XAT  =  «  ,F6.2,2X, • ALT  =  »  , 


R  P 
IM,ALIM 

,     HTi^E,    XAT, A 6 
T, IDNO 
(4),XAC(4) 


1E=«  ,F6.3 


•        «   3 


V 

7X, ■*■ J 

F3. 1,9X, •*»  ) 


TIME 

«*«,6X,«THE    TIME    NOW    I  S : • ,F3 . 3, 9X, • *•  ) 

FTIME 

XIS 
»*■ ,6X, «XDR0P= 


-,^    ^»     -,.     J^       ,,.    ^,»    -p.     ,,*     0-      »,<■    -f. 

»*■ ,39X, ■*■ ) 


:  ^e  *  *.  *  *  #  3^  ^  «:  *  #  *  *  :?  *  *  £  #  ^  ^  *  £  -;:  *  *  *  *  *  ' 


IE    POINT:'  r23X,  ' 
DIST.     TO    TARGE 


•*• ,2X, 'RELEAS 

XP 

1 *• ,2X, 'HORIZ. 

*«) 

TP 

,*',2X,'TIME,,18X,':',2X,F6.3,'     SEC2X, 


T:  «  ,3X,F5.3, 


AARP 

•*«f2X,«A/C    ALTITUDE' ,10X,«: ', IX, F7.1, •       FT 


•*«,6X,'N0    SOLUTION    FOR    THESE    DATA:', 
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WPITE(6,69) 
69       FCRMAT('1«) 
GC    TO    10 

6  WPITE(6,8) 
WRITE(6,11) 
WRITE(6,20) 

20  FORMAK 25X,'*1 ,6X, 'NOT    ENOUGH    TIME    TO   COMPUTE.' 
1) 

WRITEC6, 11) 
WRITE(6,3) 
GC    TO    10 

7  WPITE(6,8) 
WRITE<6,11) 
WRIT5(6,21 ) 

21  FORMAI^SX.1*1 ,6X, 'THE     A/C    WILL     BE    INSIDE    THE,t7X,,*«) 
WRITE(6,22I 

22  FCPMAT<25X,'*' t6X, 'DANGER    ZGNE     AT    TIME    OF    HIT',7X,'*'» 
WRITE<6,1  1  ) 

WRITE<6,8) 
10       RETURN 
END 
SLEROUTINE    POS 

c  *  * 

C  *         THIS    SU3ROUTINE    UPDATES    VALUE       OF    VKTS    AND  * 

C  *  COMPUTES    VALUES    OF    HV,VV,XAT    AND    ALT.  * 

C  *  IT    REPRESENTS    THE    NAVIGATIONAL    COMPUTER.  * 

C  *  * 

C  ***************** ************************ *********** 

COMMON/CLK/T IMEtSTIME 

CCMMON/  INI/SABV,     HVA,    WA,     HTIMEt    XAT,ABV 

COMMON/ AC T/VKT St  ALT, 0FG,YT, IDNO 

DT=    TIME-HTIME 

VKTS=VKTS+32.  17<t*DT*SABV 

VV=VKTS*SABV 

HV=VKTS*COS( ABV) 

HMV=(HV+HVA) /2. 

VMV=( VV+VVAI/2. 

XAT=XAT-HMV*DT/3600. 

ALT=ALT-VMV*DT*6  080./3600. 

HTIMF=TIME 

HVA=HV 

VVA=VV 

RETURN 

END 

SLEROUTINE    BAL 

Q        ^  *  3&  #  *  $  *  $  #  #  i£  #  ^  #  *  T>,i  ^  *  *  *  #  #  *  #  *  *  *  *  *  #  *  *  *  *  *  &  sjc  *  £  $  *  #  *  $  £  *  ****** 

C  *         THIS    SUBROUTINE    CALCULATES    TIME    OF    FLIGHT  * 

C  *  AND    DOWN    RANGE    TRAVEL    OF    THE    BOMBS.  * 

C  *  * 

^r  *V-  *F  t*  'r  *r  *r  -•*  ^  •P  n-  'i-  *■»*■  T*  -v  *■*•  "■*  ->^  *r  '**  *v  *r-  *-.-  -nr  -•*  i*  ~r-  V  ^-  *"■  *i*  *f  -j*  a4  ^*  i*  -a  v  -i*  -•*  •**   -v  V  t-  'r  'i5  T-  'r  -r*  -«*  -v  j,' 

CCPMON/AREA/    CT(2,2),     CC<3,3,2),     IREF, 
1CF0RM1,     DKG1,     DMAX,     ITYPE,     IBOTH,     DMl,CFCRM2,     DM2, 
2DKG2,    DS,     SL,    FN,     VMUZ ,    RAD,    FRACTi    VE,     THETA,    U,     DEL, 
3V,    VXA,     VYA,    CF,     DM,    DKG,     VX,    VY ,    TH ,    Y,     YA, 
4VX0,    YO,     VYO,    AN1,     AN2,     API,    AP2,     IREG,     RHO,    DTI,     DTV 
5  ,g,     A,    AA,VYK,D,CKDG,MSTG 

CCMMON/TAO/T,X 

CCMMON / ACT/ VKTS, A LT,DEG,YT, IDNO 
C    CALL    SETDAT    TO    INITIALIZE    THE    CONSTANTS 

CALL    SETDAT 
C    CALL     CECODE    TO     INITIALIZE    THE    BOMB    COEFFICIENTS 

CALL    DECODE 
C    CALL    TRAJ    TO    CALCULATE    THE    SOLUTION    TO    THE    DIFF.    EQUATIONS 

CALL    TRAJ 

RETURN 

END 

SLBROUTINE    SETDAT 

CCMMON/ A  RE  A/    CT(2,2),    CC(3,3,?. ),     IREF, 
1CFCRM1,     DKG1,     DMAX,     ITYPE,     IBOTH,     DM1,CF0RM2,    DM2, 
2DKG2,     DS,     SL,     FN,     VMUZ,     RAD,     FRACT,    VE,     THETA,    U,     DEL, 
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3V,  VXA,  VYA,  CF, 
4VXC,  YO,  VYO,  AN 
5     ,  G,  A,  AA,VY 
COMMON/TAD/T,X 

CCMMON/ACT/VKTS, 

G=  32.174 

RAC  =  0.0174533 

A=    0.7 

AA=    0.5/A 

VYK    =    -5.0 

FRACT=    0.5 

DS    =    0.0 

CFCRM1=    0.0 

CF0RM2=    0.0 

DM1=    0.0 

DM2 =    0.0 

DKG1  =    0.0 

DKG2  =    0.0 

VMUZ=    0.0 

VE=    0.0 

SL=    0.0 

DMAX=    5.0 

ITYPE=    -1 

FK=    0.0 

IBOTM=     1 

T=    0.0 

U=    VKTS  *1,68 

DEL=    ATAN2(VE,U} 

V=    SQRT(U*U*VE*V 

THETA=    DEG 

VXA=     (  V*VMUZ  )■••    C 

VYA=    (V<-VMUZ)*    S 

RETURN 

END 

SLBROUTINE    DECOD 

CCMMCN/flREA/  CT ( 
1CF0RM1,  OKGlt  DM 
2DKG2,  DS,  SLt  FN 
3V,  VXA,  VYA,  CF t 
4VXC,  YO,  VYO,  AN 
5  ,Gt     A,     AAtVY 

COMMON /TAD/T,X 

COMMON/ ACT/ VKTS, 

GO  TO  ( 1,2,3,4,5 

1,20,21, 22,23,2^, 

C  WEAPON  CONSTANTS  FOR 

1  IPFF=  4 

DKC-1=  2.5506E-03 
DTI  =  3. 
GG  TO  3  1 
C  WEAPON  CONSTANTS  FOR 

2  IPEF=  4 

0KG1=  6.2994E-03 
DTI  =  3. 
GO  TO  31 
C  WEAPON  CONSTANTS  FOR 

3  IREF  =  4 

DKGi=    4.01E-03 
DTI    =    3. 
GO    TO    31 
C    WEAPON    CONSTANTS    FOR 

4  IREF=  2 

DM AX  =  3.0 
CFCRM1=  3.9235E- 
DKG1=  2.754E-03 
DTI  =  2. 
GC  TO  31 
C  WEAFCN  CONSTANTS  FOR 

5  IREF=  2 
CMAX  =  3.0 
CF0RM1=  3.9077E- 
DKG1=  6.3648E-03 


DM,  DKG,  VX,  VY, 
1,  AN2,  API,  AP2, 
K,D,CKDG,MSTG 

ALT, DEG, YT, IDNO 


Tri,  Y,  YA, 
IREG,  RHO, 


DTI,  DTV 


78 

E) 
*RAD 

OS(THETA-DEL) 
IN(THETA-DEL) 


2,2) ,  CC( 3,3,2) ,  IREF, 

AX,  ITYPE,  IBOTH,  0M1,CF0RM2,  0M2, 

,  VMUZ,  RAO,  FRACT,  VE,  THETA,  U,  DEL, 

DM,  OKG,  VX,  VY,  TH ,  Y,  YA, 
It  AN2,  API,  AP2,  IREG,  RhO,  DTI,  DTV 
K,D,CKDG,MSTG 

ALT, DEG, YT, IDNO 

,6, 7, 8, 9, 10, 11. 12, 13, 14, 15, 16,  17,  18,  19 
25, 2o, 27,28) ,  IDNO 
THE  MK  43  UNRETARDED 


THE  MK  57  UNRETARDED 


THE  MK  61  UNRETARDED 


THE  MK  116  WETEYE 


03 


THE  MK  76  WITH  LUG 


03 
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DTI  =  1 . 

GC  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  MK  77  FIREBOMB 

6  IREF=  4 
DMAX  =  2. 
DKG1=  0.021266 
DTI  =  1. 

GC  TO  3  1 
C  WEAPON  CONSTANTS  FOR  THE  MK  81 

7  IREF=  1 
CFCRM1=  2.5704 
DTI  =  3. 

GC  TO  31 
C  WEAPON  CONSTANTS  FOR    THE  MK  81  SNAKEYE  UNRETARDED 

8  IREF=  4 
DMAX  =  3.0 
DKG1=  9.767E-03 
DTI  =  2. 

GC  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  MK  32  MCCH  FUZE 

9  IREF=  1 
CFCRM1=  2.064 
DTI  =  3. 

GO  TO  31 
C  WEAPCN  CONSTANTS  FOR  THE  MK  82  ELEC  FUZE 

10  IREF  =  1 
CFCRM1=  1.4932 
DTI  =  3. 

GO  TO  31 
C  WEAPCN  CONSTANTS  FOR  THE  MK  33  MECH  FUZE 

11  IREF=  1 
CFCRM1=  1.3431 
DTI  =  1 . 

GC  TO  31 
C  WEAPCN  CONSTANTS  FOR  THE  MK83  ELEC  FUZE 

12  IREF=  1 
CFCRM1=  1.21 
DTI  =  3. 

GC  TO  31 
C  WEAPCN  CONSTANTS  FOR  THE  MK  84 

13  IREF  =  1 
CFCRM1=  1.0 
DTI  =  3. 

GO  TO  31 
C  WEAPCN  CONSTANTS  FOP  THE  MK  117  AL 

14  IREF=  1 
CFCRM1=  3.12 
DKG1=  -1.223E-03 
DTI  =  3. 

GG  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  MK  86  WET  SAND  FILLED 

15  IREF=  1 
Cf-'AX  =  3. 
CF0RM1=  3.4972 
DTI  =  2. 

GO  TO  31 
C  WEAPCN  CONSTANTS  FOR  THE  MK  88  WET  SAND  FILLED 

16  IREF=1 
CFCRM1=  1.605 
DTI  =  3. 

GC  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  MK  82  SNAKEYE  UNRETARDED 

17  IREF=  4 
CMAX  =  3. 
DKG1=  7.329E-03 
DTI  =  1. 

GO  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  MK  82  SNAKEYE  RETARDED 

18  IREF=  1 
ITYPE=  1 
IBOTH=  2 

CKG1=  7.329E-03 
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CF0RM2=  1.6895E-02 
DM2=  0.38 
DKG2  =  0.17166 
DS=  0.6617 
SL=  -0. 000269 
DTI  =2.0 
GC  TO  31 
C  WEAPCN  CONSTANTS  FOR  THE  SADEYE  Tl  =  4.0 

19  IR£F=  1 
ITYPE=  1 
IBOTH=  2 
CF0RM1=  2.0754 
CFCRM2=  0.2217 
DS  =  4.267 

DTI  =  1 .5 
GO  TO  3  1 
C  WEAPON  CONSTANTS  FOR  THE  ROCKEYE  II  Tl  =  4.0 

20  IREF=  1 
ITYPE=  1 
I80TH=  2 
CF0RM1=  2.2973 
DM1=  0.32 
CKG1=  8.175E-03 
CFCRM2=  1.1136E-02 
DM 2=  0.41 

DKG2=  0.16835 
DS  =  4.06 
DTI  =  2.0 
GO  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  CBU  Tl  =  4.0 

21  IPEF=  1 
ITYPE=  1 
IBOTH=  2 
CF0RM1=  2.2404 
CF0RM2=  0.1178 
DS  =  4.0 

DTI  =  1 .62 

GC  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  MK  31  SNAKEYE  RETARDED 
2  2  IREF  =  1 

ITYPE=  1 

IBCTH=  2 

DKG1=  9.767E-03 

CFCRM2=  2.30625E-02 

DM2=  0.38 

DKG2=  0.23287 

DS=  0.679 

SL=  -0.000303 

DTI  =  1.622 

GO  TO  3  1 
C  WEAPON  CONSTANTS  FOR  THE  GUN 

23  IPEF  =  ^ 
DVAX  =  1.5 
CFCRM1=  2.9964 
DKG1=  -0.014992 
VMUZ=  3300.0 
DTI  =  0.5 

GO  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  ROCKETS 

24  IPEF=  3 
ITYPE=  2 
CF0RM1=  0.82 
CF0RM2  =  1.0 
FN=  1746.0 
DS  =  1.4225 
DTI  ■■=    1  . 

GC  TO  31 
C  WEAPON  CONSTANTS  FOR  THE  MK  43  RETARDED  0.4  SEC  DELAY 

25  IREF=  4 
ITYPE=  0 
DS=  0.98 
DKG2=  1.48 
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DTI    =    0.31 

GO    TO    31 
C    WEAPCN    CONSTANTS    FOR    THE    MK    57    RETARDED    0.8     SEC    OELAY 

26  1REF=    4 
ITYPE=    0 
DS=    0.89 
DKG2  =    2.0 
DTI    =    0.22 
GO    TO    3  1 

C    WEAPON    CONSTANTS    FOR    THE    MK    61    RETARDED    0.6    SEC    DELAY 

27  IREF=    4 
ITYPE=    0 
DS=    0.89 
DKG2  =    2.70 
DTI    =0.1 
GO    TO    3  1 

C    WEAPON    CONSTANTS    FOR    THE    MK    106    MOD    2 

28  IREF=    2 
ITYP5=    2 
CFCRM1=    0.1514 
CFCRM2=    0,1514 
DS    =    0.5 

DTI    =    0.8 
C    SET    THE    REFERENCE    DRAG    CURVE    COEFFICIENTS    AND    CUTS 
31    GO    TO    ( 32,33,34,51) ,     IREF 
52    CC<1, 1,1)=    1.572924E-03 
CC(  1, 2,  1 )=    0.0 
CC( 1,3, 1)=    0.0 
CC(2,1 , 1 )=    4.b784095-02 
CC(2,2,  1  )=-0.  109711069 
CC<2,3,1)=    6. 6543015-02 
CCC3, 1,  l)=-0. 116380157 
CCC3, 2, 1 )=    0.217643894 
CC(3,3,1)=    -9. 7670685-02 
CT(  1,  i)=    0.83^ 
CT(2t 1 ) =    0.9  77 
IF    ( IBOTH-1)     33,99,33 

33  CCC  1,  1,  I6GTH)  =  3.5^503924 
CC(1,2,  I  BOTH)  =-3.  3  <t7782  16 
CC(1,3, IBOTH)=  2.87262413 
CCC 2, 1 , IB0TH)=1 1 .2616503 
CCC 2, 2, IS0TH)=-27.41b2512 
CCC2,3» 130TH)=  21.7308359 
CCC 3, 1, I30TH)=- 23. 79154  72 
CCC3,2 , IBOTH)=  44.2637764 
CCC 3,3,  I  BOTH) =-14. 49  96046 
CT(1,IBCTH)=  0.b22 
CT(2,I8uTH)=    0.385 

GO    TO    51 

34  CCC1, 1,1)=   0.104115 
CCC  1, 2,  1)=  -0.230347 
CCQ, 3,1)=   0.167644 
CC(2,1, 1)=  -0.194037 
CC(2,2,1)=   0.401478 
CCC2,3,  1  )=  -0. 164612 
CC(3,1,1)=   7.33246E-02 
CC(3, 2, I )=  -2.03275E-02 
CCC3,3,1)=   2.44682E-03 
CT(1,1)=  1.032 

CTC2, 1)=  1.30 

99  DO  100  1=1,3 
DO  100  J=l,3 
CCCI, J,2)=0.0 

100  CONTINUE 
CTC1,2) =0.0 
CT(2,2)=0.0 

51  RETURN 
END 

SUBROUTINE  TRAJ 

CCMMON/AREA/    CTC2,2),    CC<3,3,2),     IREF, 
1CF0RM1,     DKG1 ,     DMAX,     ITYPE,     IBOTH,    DM1,CF0RM2,     DM2, 
2DKG2,    OS,     SL,    FN,     VMUZ,    RAD,    FRACT,    VE,     THETA,    U,     DEL, 
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TH,  Y, 

IREG, 


YA, 

RHO, 


DTI,  DTV 


SUBROUTINE 


C  SET 


2,1,1 
FOR  FIRST  STAGE  DRAG 


GO  TC  4 


3V,  VXA,  VYA,  CF,  DM,  DKG,  VX,  VY, 
4VX0,  YO,  VYO,  ANli  AN2,  API,  AP2, 
5     ,G,  A,  AA,VYK,D,CKDG,MSTG 

CCMMON/TAD/T,X 

CCMMON/ACT/VKTS , ALT,DEG,YT, IDNO 
INITIALIZE  THE  VARIABLES  FOR  THE  TRAJECTORY 

CF=  CFORM1 

DN=  DM1 

DKG=  DKG1 

MSTG=  1 

X=  0.0 

T=  0.0 

VX=  VXA 

VY=  VYA 

TH=  FN 

Y=  ALT 

YA=  Y 
TYPE  CF  DRAG 

IF  (ITYPE) 
SET  STEP  SIZE 

1  D=  DS+SL*U 
GO  TO  3 

COMPUTE  STEP  SIZE 

2  D  =  DMAX 
CALL  RUNGE  KUTTA  SUBROUTINE 

3  CALL  RUNGE 
DTV  =  1 /G*(VY  +  SQKT(VY**2  +  2.*G*<Y)  ) J 
D  =  DTI 

IF  { ( IDN0.LE.17) .OR. (IDNO.FQ.23) ) 
THE  SECOND  STAGE  DRAG  PARAMETERS 
MSTG  =  2 

IF  ( ITYFE.EQ.2)  MSTG  =  1 
DKG=  DKG2 
DP=  DM2 
CF  =  CFCRM2 
TH  =  0.0 

IF  (DTV  -  D)  5,3,3 
THE  STEP  SIZE  TO  THE  VACUUM  DROP 
D=  DTV 

THE  DRAG  PARAMETERS  FOR  THE  FINAL 
MSTG=  2 

IF  ( ITYPE. EQ. 2)  MSTG  =  1 
DKG=  DKG2 
Df=  DM2 
TH=0.0 
CF=  CFCRM2 

RUNGE  FOR  THE  FINAL  INTEGRATION  STEP 

CALL  RUNGE 

DTV    =    1/G*( VY  +  SQRT(VY**2  +  2.*G*(Y)  }» 
C    UPDATE    THE    TIME    OF    FALL    AND    THE    DOWN    RANGE    TRAVEL 

T    =    T    +    DTV 

X    =    X    *DTV*VX 

RETURN 

END 

SUBROUTINE    RUNGE 

CCMMCN/AREA/    CT(2,2),    CC(3,3,2),     IREF, 
1CF0RM1,     DKG1,     DMAX,     ITYPE,     IBCTH,     DM1,CF0RM2, 
2DKG2,     DS,     SL,    FN,     VMUZ,    RAD,     FRACT,     VE,     THETA, 
3V,     VXA,     VYA,    CF,     DM,     DKG,     VX,    VY,    TH ,    Y,    YA, 
4VX0,    YO,     VYO,     AN1,     AN2,     API,     AP2,     IREG,     RHO,    DTI,     DTV 
5  TG,     A,     AA,VYK, D,CKDG,MSTG 

CCMMON/TAD/T,X 

COMMON /AC T/VKTS, ALT,DEG,YT, IDNO 
C     INITIALIZE    THE    VARIABLES    FOR    THE    RUNGE    KUTTA 

AD    =    A*D 

Y0=    Y 

VXO=    VX 

VYO=    VY 

RHO=    2. 37  5  7oE-03-Y*(6.8755  7E-08-Y*6.716  18E-13) 

CALL  DERIV 
C  UPDATE  POSITION  AND  VELOCITIES 

Y=    YO*AD*VY 


C 

C 


4 

SET 

5 

SET 


TIME    REMAINING 
INTEGRATION    STEP 


C    CALL 


DM2, 
U,     DEL, 
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RHO=    2.3  7!5  76E-03-Y*(6.875  5  7E-08-Y*6.  716L3E-13) 

AP1=    AP2 

AN1  =    AN2 

VX=    VXOAD*ANl 

VY=    VYC+AD*AP1 

CALL  DEPIV 
C  COMPUTE  TIKE,  POSITION  AND  VELOCITIES 

T=  T  +  D 

X=  X*D*(VXO+AA*<  vx-vxon 

Y=    YCKD~( VYO+AA* I VY-VYO) ) 

VX=    VXO+D*(  AN1+AA*<  AN2-AN1  )  ) 

VY=    VYG+D*(APH-AA*(  AP2-AP1)  ) 

RETURN 

END 

SUBROUTINE    DEP IV 

CCMMON/AREA/    CT(2,2),     CC(3,3,2),     IREF, 
1CFORM1,     DKG1,     OMAX,     ITYPE,     IBOTH,    DM1,CFCRM2,     DM2, 
2DKG2,    DS,     SL,     FN,     VMUZ,    RAD,    FPACT,    VE,     THETA,    U,     DEL. 
3V,     VXA,     VYA,     CF,     DM,     OKG,    VX,    VY,     TH,    Y,     YA, 
4VX0,    YO,     VYO,     AN1,     ANI2,     API,    AP2,     IREG,     RHO,    DTI,     DTV 
5  ,G,     A,     AA,VYK,D,CKDG,MSTG 

CCMMON/TAD/T,X 

CCMMCN/ACT/VKTS, ALT,QEG,YT, IDNO 
C    COMPUTE    THE    TOTAL    VELOCITY    AND    THE     MACH    OF    THE     WEAPON 

V    =    SQRT<VX*VX+VY*VY) 

U'=    V*( 8.9  544E-C4+3.26E-09*Y)+DM 
C    DETERMINE    THE    REGION    OF    THE    DRAG    CURVE    THAT     IS    APPLICABLE 

IF    (CM-CT(  1,MSTG)  )     1,1,2 

1  IREG=    1 
GC    TO    5 

2  IF    (CM-CT(2,MSTG) )    3,3,4 

3  IREG=    2 
GO    TO    5 

4  IREG=    3 

C    DO    INTERMEDIATE    BALLISTIC    CALCULATION 

5  CKDG    =    DKG+CF*(CC(  IR  EG,  1 ,  MS  TG  )  +  (  CCU  REG  ,  2,MSTG) 
1 +CC ( I  REG , 3 , MSTG ) *CM ) -CM ) 

HH=    TH/V-RHG*CKDG#V 

AN2=  HH*VX 

AP2=  HH*VY-G 

RETURN 

END 

SUBROUTINE  I NTER < X ARP  ,TARP) 

C     *    SETS  UP  THE  INCREMENTS  CF  TIME  AND  THE  * 

C     *    DIRECTION  OF  SEARCH  OF  THE  INTERSECTION.        * 
C     *  * 

CCMM0N/V£C/RTIME(4) , XOROP ( 4  J , X AC (4) 
CCMMGN/CLK/TIME,STIME 
CGMMON/RET/RT,ZERO 
RT=RTIME( 1 ) 
DT=1  . 
C  RES=1.0  MEANS  THE  ANSWER  WAS  FOUND. 

RES=COMP(DT) 

IF  (RES  .EQ.  1.0  )  GO  TO  1 
DT=-0.1 
RES=COMP(DT) 

IF  (RES  .EQ.  1.0)  GO  TO  1 
DT=0.01 
RES=COMP(DT) 

IF  (RES  .EQ.  1.0)  GO  TO  1 
DT=-0.C009 
RES=COMP(DT) 
I    TARP=RT 

XARP=ZERO 

RETURN 

END 

FUNCTION  CCMP(DT) 

c    *  * 
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C  *  EXECUTES    THE    SEARCH    UNTIL    THERE    IS    A    CHANGE  * 

C  *         OF    SIGN    OR    THE     INTERSECTION    WAS    FOUND.  * 

C  *  * 

CCMM0N/VEC/RTIME<4) , XDROP ( 4 ) , X AC ( 4) 

COMMON/CLK/TIMEtSTIME 

COMMON/RET/RTtZERO 
C  ***"ZERO",FnR    THE    XAC    ARRAY.*** 

c  ***"ONE"f FOR    THE    XDROP    ARRAY.*** 

CCMP=-1 .0 

NIL  =  0 

NUM  =  1 

DO    1    1=1,50 

ZERO=ORTFIT<RT,NIL) 

CNE=ORTFIT(RT,NUM) 

IF     ( A BS( ONE- ZEROJ.LT. 0.001)     GO    TO    2 

IF    <DT    .GT.    0.0)    GO    TO    3 

IF    (ZERO. GT. ONE)     RETURN 

GO    TO    1 
3  IF    (ONE. GT. ZERO)     RETURN 

1  RT=RT*DT 

2  CCMP=1.0 

C  C0MP=1.0    MEANS    THE    ANSWER    WAS     FOUND. 

RETURN 
END 
FUNCTION    ORTFIT(RT,IARRAY) 

-c  'i*  -v  *r  -t*  *v  -r"i*  *r  "t1  -,i*  -v*  ^*  "t-  *?  -v  ^r  *r»  *t*  5.*  *i*  *»*  -«■*  *v  t  ~r  -v  -r  ->-  -v  -»-  *v  V  n*  *v*  *r  *•*■  t-  -r  *r  t  -r*  -v*  *c  *r  n*  -v-  ■<- 11  -v-  'i^  *c 

C  #  ♦ 

C  *  THIS    FUNCTION          GENERATES  THE    NECESSARY                       * 

C         .    *  ORTHOGONAL    POLYNOMIALS     ,  FINDS    THE  * 

C  *  COEFFICIENTS    OF    THE    POLYNOMIAL    THAT  * 

C  *  REPRESENT    THE     DATA    POINTS  AND    EXTRAPOLATE    FOR       * 

C  *  THE    REQUIRED    TIME.  * 

C  *  * 

*,*  -r  , ,.  -,*  *,c  ,£  r^  -,,  •,»  . ,,  ,r  . ,-.  ,,».  .  r*  rf.  ,  .  „,«.  -,*  ^  -7:  *r  *,%.  -^  -,%  ^-  -.f.  -^  -,»  ,,t  *,»  ,.»  r,.  .,>  ^  ^.  ,,.  r  .,  .r  Y  1-  ■%-  57  jf  *,*  ?p.  --(*  .y.  *p  ^p*  -^  ?^ 

CCMMCN/VEC/RTIME(4)  t XDROP (4 ) , X  AC ( 4) 

DIMENSION    ARRAY(4) 

DIMENSION    C(4) 
C  ***    RT:     PEAL    TIME 

C  IARRAY:     SWITCH    BETWEEN    XDROP    AND    XAC    *** 

IF(  IARPAY.EQ.O)     GO    TO    2 

DO    1     1=1,4 

1  ARRAY( I )=XDROP(I ) 
GO    TO    4 

2  DO    3    1=1,4 

3  ARRAY( I )=XAC(I ) 

4  S0=4.0 
3=0.0 

DO    0    1=1,4 

8  B=B+RTIME(I) 
B0=B/S0 

S  1=0.0 

DO    9    1=1,4 

9  S1=SH-{RTIME(  I)-B0)**2 
B  =  0.0 

DO    10    1=1,4 

10  B=BMRTIME(  I)  )*(RTIME(  I  )-B0)**2 
B1=B/S1 

C1=S1/S0 

S2=0.0 

DO    11    1=1,4 

11  S2=S2+(  (RTIME(  I  ) -Bl  ) * ( RTIME ( I ) -BO )-C 1 ) ** 2 
8  =  0.0 

DO    111    1=1,4 

111  B=6+RTIME( I)*((RTIME(  I  )-B 1 ) *( RT I  ME ( I )-B0)-Cl)**2 
B2=B/S2 

C2=S2/S1 
S3=0.0 

112  S3  =  S3f(  (PTIME( I ) -B2  )* ( ( RTIME ( I ) -B  1 ) * ( RT I  ME (  I)-80)-Cl ) 
1C2*(RTIME(  I  )-30)  )**2 

D  =  C.O 
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DO  12  1=1,4 

12  D=D+ARRAY(I) 
C(i)=0/SO 

D  =  0.0 

00  13  1=1 ,4 

13  D=D+( ARRAYCI ) )*<  RTIME(  II-BO) 
C(2)=D/S1 

0  =  0.0 

DC    14    1=1,4 

14  0  =  0+ ( (  ARRAY( I))*<  <RTIME( I )-Bl)*(RTIME( I  )-B0  )-Cl)  ) 
C(3)=D/S2 

0  =  0.0 

DO    141     I=it4 
141       D=Df( ARRAY! I ) )*(  (RTIME( I )-32)*( (RTIMEd )-Bl  )*(RTIME(  I) 
1-B0)-C1 )-C2*(RTIME<  I  )-B0)  ) 
C(4)=D/S3 

ORTFIT=C(  1  JfC(2)*(  RT-B0)«-C(3)*<  (  RT-B1)*(  RT-E0)-C1  ) 
1    +C(4)*( <RT-B2)*( (RT-B1)*(RT-B0)-Cl)-C2*<RT-B0) ) 
RETURN 
END 
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*         EXECUTIVE'S    COMPUT 


ER    PROGRAM  * 


DECLARE  NAVTAB  DATA 

(OOCH, 

000H, 

OOOH, 

040H, 

OOOH, 

OOOH, 

040H, 

OEBH, 

OEBH, 

04DH, 

081H, 

0A7H, 

04DH, 

OOAH, 

OC6H, 

OFAH, 

049H, 

0F4H, 

062H, 

0C5H, 

0E1H, 

03EH, 

04DH, 

0F7H, 

068H, 

04CH, 

014H, 

OCBH, 

362H, 

049H, 

OEFH, 

021H, 

0C5H, 

ODoH, 

r086H, 

04DH, 

OEBH, 

029H, 

04CH, 

01EH, 

■OCFH. 

,09EH. 

04  9H, 

OEAH, 

062H, 

0C5H, 

OCBH, 

0D2H, 

04DH, 

ODEH, 

097Hi 

04CHt 

028H, 

0D3H, 

rOACH, 

049H, 

0E6H, 

C18H, 

0C5H, 

0C1H, 

011H, 

04DH, 

0D1H, 

0B4H, 

04CH, 

032H, 

00  7rii 

08DH, 

049H, 

0E2Hi 

0  3CH, 

0C5H, 

rOB6H, 

04  AH, 

r04DH. 

0C4H, 

i08  5H, 

04CH, 

03CH, 

ODBH 

,G3EH, 

049H, 

ODEH, 

0C4H, 

0C5H, 

rOABH, 

07BH, 

04  OH, 

0B7H. 

rOOFH, 

04CH, 

0  46  H  i 

rODEH, 

r OBEH, 

049H, 

OOBH, 

tOASH, 

0C5H, 

OAOH, 

0A3H, 

04DH, 

OAPH, 

,055H, 

04C  H  t 

050H, 

0E2Hi 

OCEH, 

04  9H, 

rOD8H, 

f0E4H, 

0C5H, 

OS£iHi 

0C4H, 

04DH, 

0  9bH. 

r05CHi 

04CH, 

05AH, 

0E5H, 

02CH, 

04  9H, 

0D6H, 

-0  70H, 

0C5H, 

OS  Ah, 

rODBri, 

04DH, 

0  8DH 

,027H, 

04CH, 

05FH, 

,0E7H, 

063H, 

049H, 

0D4H. 

,  0C8H, 

0C3H. 

f085H, 

i 06 3H, 

04DH, 

-0  85H, 

rOFBH, 

04CH, 

060H 

rOESH 

,03DH, 

r  C49H. 

,  0D4H, 

0  29H, 

0C5H, 

06  4H, 

04BH, 

040  H, 

084H  . 

,067H, 

04CH, 

OblH 

rOEBH 

,088H 

,049H 

,  CC4H 

rOOOH, 

0C5H, 

083H. 

r032H. 

i  04DH 

,083H. 

-015H, 

04CH, 

062H, 

0E8H, 

r  OCUH, 

049H, 

rOD3H. 

»0C4H, 

0C5H, 

,  08  2H. 

rOl AH. 

,  04DH 

-081H 

»0A2H, 

04CH, 

063H 

,0E9H 

,  015H, 

049H, 

»  0D3H. 

, 09  7H, 

OCi>H. 

0  8  1 H 

,002H 

,04DH, 

080H 

r02FH, 

04CH, 

064H 

,0E9H 

r  0^9H, 

04  9H, 

r0D3H, 

r 06 iH< 

0C5H, 

OFFH, 

0D2H, 

04CH, 

,OFDH 

,078H, 

04BH, 

065H 

rCE9H 

rOAOH, 

049H. 

r003H 

r036H, 

0C5H, 

,  OFDH, 

r  OAlh 

,04CH 

,  OFAH 

r090H, 

'04BH, 

066H, 

,  0E9H 

p0E5H, 

r 049H- 

,  0D3H 

.007H, 

0C5H 

rOFBH 

r  06FH 

r04CH 

r0F7H 

,0A7H. 

043H, 

06  7  H 

,OEAH 

,  02BH- 

, 049H, 

rOOZH 

,0D8H, 

0C5H- 

,0f:9H 

,03EH 

r04CH 

,  0F4H 

rOBDH, 

04BHt 

068H- 

rOEAH 

r  06FH 

r049H 

,0D2H 

rOAAH, 

0C5H 

rOF7H 

,  OOCH. 

,  04CH 

,0F1H 

,0D2H- 

r04BH  , 

069H 

,0EAH 

,0B2H 

r  049H 

rOD2H 

,07FH. 

0C5H 

,  0F4H 

r  0D9H 

,  04CH 

,OEEH 

,0E6H, 

'04BHT 

06AH 

rOEAH 

r  CF5H 

,  049H 

,0D2H 

•051Hi 

0C5H 

,0F2H 

,  0A7H 

,  OACH 

rOEBH 

rOF9H, 

r043Ht 

06BH- 

,CE6H 

,  038H 

,  049H 

,0D2H 

p025H, 

0C5H. 

,0F0H 

,  074H 

,04CH 

,0E9H 

rOOBH 

!04BH, 

06CH 

r  0  E  B  H 

,  07AH 

, 049H. 

rODlH 

,OFAH, 

0C5H 

rOEEH 

r041H 

r04CH 

>0E6H 

rOlCH, 

!04BHf 

06DH 

,OEBH 

,  OBCH, 

04  9H 

rCDIH 

,0U0H 

0C5H 

,OECH 

,OOEH 

r04CH 

rOE3H 

,02CH. 

|04BH, 

06EH 

rOEBH 

,  OFDH 

,  049H 

rODlH 

?0A5H, 

0C5H 

,  0  E  9  H 

,  ODBH 

,  04CH 

,  CECH 

r03BH, 

!046Ht 

06FH 

,OECH 

,  03DH. 

,  049H 

rODlH 

,07DH, 

0C5H 

r0E7H 

,0A8H 

,04CH 

rODDH 

,049H, 

C4BH, 

070H 

rOECH 

,07EH. 

r  049H 

,ODLH 

,054H- 

0C5H. 

,0E5H 

, 074H. 

r04CH 

,  ODAH 

r057H. 

r04BH, 

071H 

.  OECH 

,  OBEH 

,  049H 

rODlH 

,0  2CH, 

0C5H 

rOEBH 

,  040H 

,  04CH 

r0D7H 

,063H, 

'04BHT 

072H 

rOECH 

r  OFDH 

,  049H. 

rODlH 

,OCbH, 

0C5H 

rOElH 

r  OOCH 

rO^+CH 

,CD4H 

,06EH. 

r04BH t 

073H 

,OEDh 

, 03BH. 

,  049H 

rOOOH 

r  0  D  F  H , 

0C5H 

,ODBH 

,  ODBH 

,  04CH 

,  ODLH 

,079H, 

'04BH, 

074H 

rOEDH 

,  079H 

,  04  9H 

rODOH. 

,0BAH, 

0C5H 

rOOCh 

,  0A4H 

r04CH 

rOCEH 

,  08  3H, 

!04BH, 

075H 

iCLDH 

r  0B7H. 

,  C49H 

rOOOH 

,C94H, 

0C5H 

,GDAH 

,06FH 

,04CH 

P0CBH 

i08ttH, 

'04l3H, 

076H 

rOEDH 

,0F4H 

,049H 

pODOH. 

r06FH, 

0C5H 

rOD8H- 

r03AH 

r04CH, 

,OCdH, 

09  3H, 

0  7  7H 

rOEEH 

r031H 

r049H, 

rODOH, 

04BH» 

0C5H- 

,0D6H 

,  005H 

r04CH 

,0C5H, 

p09AH, 

078H, 

,0EEH 

,  06DH 

>049H, 

, OOOH, 

,028H, 

0C5H 

,GD3H 

,ODOH 

f04CH, 

rCC2Hi 

OAlHt 

079H 

,OEEH 

r  0A3H 

,049H 

,ODOH. 

,006Ht 

0C5H 

rODlH 

,  09Ah 

,  04CH 

rOBFH- 

rOA6H, 

07AH 

rOEEH 

rGE3H 

f049H 

rOCFH, 

rOE4HT 

0C5H- 

rOCFH. 

,  365H 

r04CH 

,  OBCH, 

•OAAH, 

0  7BH 

,OEFH 

,  0 1  DH 

,049H, 

,OCFH, 

0C2H, 

0C5H 

rOCOH 

,  02FH 

r04CH 

>0B9H, 

OAEH, 

07CH, 

OEFH, 

058H 

r049H, 

>OCFH, 

0A1H, 

0C5H 

,0CAH 

r  GF9H 

r04CH- 

>086H, 

rOBlH, 

OOOH 

rOOOri- 

,  OOOH 

f040H 

,000H. 

rOOOH, 

040H 

,090H- 

r02  5H 

, 04EH- 

rOF3H. 

r080H, 

OOAH 

iC'AfaN 

,0CFH 

r049H 

r0  93H, 

0F2H, 

0C6H, 

,08Ah, 

»  03  1H 

r04EH, 

rOE9H 

,0F8H, 

014H 

rOBlH 

r  09FH 

,049H, 

>094H, 

0B3Ht 

0C6H 

,085H, 

r  0G6H. 

>04EH 

,0E0H, 

•024H, 

OlEH. 

r037H, 

042H- 

r  049H , 

»0  94Hi 

OCAH, 

CC6H 

rOFEH. 

05BH 

r  04 '">H 

r  0  06  H 

rOOlHt 

028H, 

rOBCri 

r  OBBH 

r 049H, 

>094H, 

r03BH, 

0C6H, 

r OF 2H- 

,  0  5 AH 

, GhDH. 

rOCBH. 

,  OBBH, 

032H 

rOC2H. 

008H 

,G49H, 

r093h, 

»017H, 

OC6H- 

r0E6H, 

017H 

,04DH- 

rOCOH 

rOCOH, 

03CH 

rOC7H 

r02EH 

r049H 

rO^lH, 

, 0to9Ht 

0C6H, 

,0D9ri 

OAOH 

,04DH. 

rOB5H 

,09CH, 

046H, 

OCCH, 

02  EH 

r 049H. 

,08FH. 

r03AH, 

OC6H. 

rCCUh- 

1  C04H 

r04DH 

rOAAH 

,01CH, 

050H, 

00  1H 

i  GOBH 

r049H 

,08CH. 

, 094H, 

0C6H, 

rOCOH 

r051H 

,  040H 

,09EH 

rOBEH, 

05AH, 

,0D5H 

t  OCAH 

,  049H- 

,  039H 

t0  7CH, 

0C6H. 

0B3H, 

,  093H- 

r04DH, 

1  0  9  1 H  - 

rOFCH, 

05FH, 

CD9H 

,  049H 

r049H, 

>0  86H, 

0E7H, 

0C6H, 

OADH. 

,  03  5H 

,040H, 

,08BH- 

»0B6H, 

060H, 

GUAM, 

OADh, 

»049Hi 

r085H, 

rOOOH, 

0C6H, 

OABH, 

,  OEFH 

r04DHi 

r08AH 

,012b, 

06  1H, 

rOOBH, 

022H. 

r049H 

,  085H 

,070H, 

0C6H, 

OAAH 

fGAAH 

,040H, 

,  0S9H 

r02CH, 

062H 

iCDBh, 

097H 

r049H< 

rC85H- 

»000H» 

0C6H, 

0A9H, 

064H 

r04DH, 

087H 

r0E6Hi 

063H, 

OOCH. 

•  OOCH 

r049H. 

>084H 

,  OABH, 

0C6H. 

,0A8H, 

01FH 

,  040H 

r0  86H- 

p09EH, 

064H, 

ODCM1 

082H. 

, 049H, 

r084Hi 

r049H, 

0C6H, 

0A6H, 

,  ODAH, 

rG40H. 

,0  85H 

,056H, 

065H, 

ODCH 

»0F5H 

r  049H 

,033H, 

•0E2H, 

0C6H, 

0^5H, 

095H 

>04PH, 

r084H 

rOOCH, 

066H, 

,ODDrl, 

06AH 

,049H, 

083H 

r0  7DH, 

0C6H, 

0A4H, 

050H, 

04DH, 

062H. 

rOC2H, 

06  7Hj 

rODDH, 

rOElH 

»049H, 

083H, 

OlCHt 

0C6H, 

0A3H 

r  OOCH 

r04DH 

,  0  8 1 H  , 

076H, 

068H, 

»ODEH, 

05  5H. 

1 049H, 

082H, 

,0B2H, 

0C6H 

»OAlri 

,  0C7h 

r04DH 

r030H. 

r029H, 

069H, 

ODEH 

0C8H 

,  049H 

»082H, 

»04  9Hf 

0C6H, 

,OAOh, 

083H, 

,04DH, 

rOFDH 

rOB8Hi 

06AH 

rODFH. 

, 03DH- 

r 04  9H, 

,081H, 

,0E3H, 

0C6H, 

>09FH 

,03FH, 

r04DH. 

OFBH 

rOlAH, 

O6BH1 

rODFH 

rOBlH 

r04^H, 

r081H, 

,077H, 

0C6H, 

r09DH, 

r OFCH. 

r04DH< 

OFBH, 

»07AH, 

06CH, 

OECH, 

02  4H, 

,C49H, 

O8IH1 

OOOH, 

0C6H 

r09CH, 

0B8H, 

040H, 

0F5H- 

r008H, 

06DH, 

OEOH, 

09AH, 

, 049H, 

080H, 

OAOH, 

0C6H, 

09BH, 

075H, 

04DH. 

0F3H- 

-0  34H, 

06EH, 

OEIH1 

008H, 

C49H. 

080H, 

02FH, 

0C6H, 

09AH, 

,033H, 

04DH, 

OFOH, 

08EH, 

06FH, 

0E1H 

,080H 

,  049H, 

OFFH. 

pOBOH, 

0C5H 

,098H 

»0FOH. 

,04DH, 

OEOH, 

rOE6H, 

070H, 

OElh, 

0F1H, 

049h  , 

rOFEH, 

0A9H, 

0C5H, 

,097H 

rOAEH, 

»04DH. 

rOEBH 

r0  3BH, 

071H, 

0E2H 

06  8H 

, G49H- 

,  0  F  OH  , 

0D5H, 

0C5H- 

,096H, 

,06CH. 

,04DH, 

,  0E8H, 

08EH, 

04BH, 
04BH, 
04BH, 
04BH, 
04BH, 
04BH, 
04BH, 
04CH, 
04CH, 
G4CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
OtCH, 
04CH  , 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04C  H  , 
04CH, 
04CH, 
04BH, 
04BH, 
04BH, 
04BH, 
043H, 
04BH, 
04BH, 
04BH, 
04BH, 
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072H, 

0E2H, 

p 0D9H, 

049H, 

OFCH, 

OECH, 

0C5H, 

095Hi 

02BH, 

04  DH, 

,0E5H, 

OEOH, 

C73H, 

0E3H 

, 04CH. 

, 049H. 

pGFCH, 

009Ht 

0C5H, 

093H, 

OFAH, 

04PH, 

0E3H, 

02FH, 

074H, 

OE3H. 

r  OBEH 

p049H, 

pOFBH, 

022H, 

0C5H, 

092H, 

OAAH 

r  040 H. 

pOEOH, 

07BHt 

075H, 

OE4H, 

033H, 

G49H, 

OFAH- 

03FH, 

0C5H. 

p091H 

,  069H 

p040H. 

pODOH, 

0C6H, 

0  76H, 

OE4ri, 

0A4H. 

p049H. 

rOF^H, 

0  54H, 

0C5H- 

r090H< 

>02AH, 

pC4DH- 

pODBH. 

OOEHt 

077H, 

OF  5  H . 

,  0  I  7H  , 

p049H- 

pOF8H, 

r068H, 

0C5H, 

-06EH, 

r  OEAH. 

r04DH, 

pODBH , 

p054H, 

078H, 

OE5H, 

08AH. 

p049H, 

pOF7H, 

07EH, 

0C5H, 

0  3DH, 

OABH. 

04DH. 

pOD5H< 

098H, 

C79H, 

OE5H- 

,  OFFH 

p049H 

pOF6H, 

093H, 

0C5H. 

r08CHi 

p06DH, 

p04DH- 

pOD2H 

pODAH, 

07AH 

,OE6H. 

,  06FH 

,049H 

pOF5H, 

09FH, 

0C5H, 

08BH 

t 02FH. 

p040H 

pODOH, 

p0  1Ai-S, 

07BH- 

pOE6H 

f OE3H. 

p049H 

pOF4H. 

OBOH, 

0C5H, 

089H, 

pOF2H, 

,04DH, 

pOCDH, 

•057H, 

07CH, 

0E7H 

r05oH 

p049H, 

pOF3H, 

OBOH, 

0C5H, 

p088H- 

,  OB5H. 

p04DH 

.OCAH, 

p092H, 

OOOH, 

DOOM, 

,  OOOH 

,04 Oh, 

pOOOH. 

pOOOH, 

040H, 

OF  AH 

puOGH. 

,04Bh 

,0E7H, 

p035H, 

OOAH 

»G96H. 

, OOOH, 

049H 

pOOOH, 

OOOH, 

040H, 

OFAH. 

pOOOH 

,043H. 

pODCH, 

pOCBH, 

G14H- 

p096H- 

i OOOH. 

pG49H- 

pOOOH 

pOOOH, 

040H, 

pOFAH 

rOOOH 

p04BH, 

p  0D2H. 

p060H, 

OlEHi 

096H. 

pOOOH. 

p049H 

pOOOH 

rOOOH. 

040H 

pOFAH 

,OOOH 

pO40H 

,  0C7H 

0F5H, 

C28H, 

096H. 

r OOOH. 

049H 

pOOOH. 

pOOOH, 

040H, 

OFAH. 

p OOOH, 

p04BH 

,0BOH 

pOSBH, 

032H, 

p096H 

P  OOOH 

p049H- 

pOOOH, 

OOOH, 

040H, 

rOFAH- 

,OOOH. 

04BH 

pOB3H, 

p020H, 

03CH 

.G96H, 

pOCCH, 

.  049H 

pOOOH. 

pOOOH, 

040H. 

rOFAH 

pOCOH 

p04SH 

pOA8H, 

pOB5H, 

046H- 

r096H 

rOOOH 

rC49H. 

pOOOH, 

OOOH, 

040H. 

•  OFAH 

r OOOH. 

rO^BH 

p09EH, 

p048H, 

050H- 

p096H- 

, OOOH, 

049H 

pOOOH- 

pOOOH, 

040H, 

pOFAH 

,OOGH. 

p046H 

r093H 

pOEOH, 

05AH 

pC96H, 

,  OOOH 

p049H 

pOOOH, 

pOOOH, 

040H, 

OFAH 

p  OOOH 

r04BH 

,  0  89H. 

0  7  5H , 

05FH 

p096H, 

i OOOH. 

p  04 9H 

pOOOH 

rOOOH, 

040H, 

pOFAH 

, OCOH. 

r046H. 

p084H< 

p040H, 

060H, 

p096H. 

r  OOOH 

p049H 

pOOOH. 

pOOOH, 

040H. 

rOFAH 

, OOOH. 

p04BH 

p083H, 

035H, 

061H, 

096H, 

rOOOH, 

p049H, 

pOOOH 

pOOOH, 

040H. 

,OFAH, 

(OOOH, 

,048H 

p082H- 

p02BH, 

062H, 

0  96H 

, OOOH, 

p049H 

pOOOH. 

pOOOH, 

040H, 

OFAH 

pOOOH, 

p043H 

r081H. 

p0  20H, 

063H. 

,096H 

,  OOOH 

r049H 

pOOOH 

pOOOH, 

040H, 

pOFAH 

pOOOH, 

r04BH 

pOSOh 

p015H, 

064H 

rC96H 

pOOOH 

>049H, 

pOOOHi 

OOOH, 

040H 

pOF  AH 

pOOOH. 

p04BH 

pOFEH, 

016H, 

065H, 

p096H, 

p OOOH. 

, 049H, 

pOOOH. 

pOOOH, 

040H- 

,OFAH 

pOOOH 

p046H 

,OFCH 

pOOOH, 

066H 

,096H 

p  OOOH, 

r049H, 

pOOOH 

pOOOH, 

040H- 

rOFAH 

,OOOH. 

p04BH 

rOF9H- 

pOEBH, 

067H. 

p096H 

pOOOH 

,  04  9H 

,000H 

pOOOH, 

040H 

pOFAH 

pOOOH, 

r04BH 

P0F7H. 

pOD6H, 

068H 

,096H 

rOOOH 

p049H 

pOOOH 

pOOOH, 

040H 

pOFAH 

,OOOH, 

r04BH 

pOF5H, 

pOCOH, 

069H, 

r096H 

,  OOOH. 

,  049H 

pOOOH, 

pOOOH, 

040H. 

pOFAH 

,OOOH. 

r04BH 

,0F3H. 

pOABH, 

06AH. 

r  0  96  H 

r  OOOH, 

049H 

, OOOH. 

OOOH, 

040H, 

OFAH- 

pOOOH. 

,043H 

rOFIN, 

p0  96H, 

068H. 

r  0  96  H  . 

r  COOH, 

r049H. 

pOOOH 

pOOOH, 

040H 

rOFAH 

,  OOOH 

p04BH 

,OEFH 

p081H, 

06CH 

,C96H 

,  OOOH 

,049h, 

pOOOH. 

,000H, 

040H 

,OFAH 

,OOOH 

p04BH 

,OEDH, 

p06BH, 

06DH- 

r096H 

p  OOOH. 

p  049H 

pOOOH. 

pOOOH, 

040H 

pOFAH 

pOOOH 

,04BH 

pOEBH 

r056H, 

04BH, 
04BH, 
04BH, 
04BH, 
048H, 
04BH, 
04SH, 
043H, 
04BH, 
04BH, 
043H  , 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH  , 
04CH  , 
04CH, 
04CH, 
04CH, 
048H, 
04BH, 
043H, 
04BH, 
04BH, 
04BH, 
048H, 
04BH, 
04BH, 
04BH, 
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06EH 
040H 
06FH 
04GH 
070H 
040H 
071H 
040H 
072H 
040H 
073H 
040H 
0  74H 
040H 
075H 
040H 
076H 
04  OH 
077H 
040H 
078H 
040H 
0  79H 
040H 
07AH 
040  H 
0  7BH 
040H 
0  7CH 
040H 
OCOH 
040H 
OOAH 
0C4H 
014H 
0C4H 
01EH 
0C4H 
028H 
0C4H 
032H 
0C4H 
03CH 
0C4H 
046H 
0C4H 
050H 
0C4H 
0  5AH 
0C4H 
05FH 
0C4H 
060H 
0C4H 
06  1H 
0C4H 
062H 
0C4H 
063H 
0C4H 
064H 
0C4H 
065H 
0C4H 
066H 
0C4H 
067H 
0C4H 
068H 
0C4H 
069H 
0C4H 


0  96H 
OFAH 
096H 
AH 
6H 
AH 


OF 
0  9 
OF.. 
096H 
AH 
96H 


OP 


FAH 
96H 
FAH 
96  H 
FAH 
96H 
FAH 
96H 
AH 
96H 
FAH 
9dH 
OFAH 
096H 
OFAH 
096H 
QFAH 
096H 
OFAH 
0  96H 
0F6H 
00  OH 
08BH 
0E1H 
086  H 
0E1H 
08  2H 
0E1H 
OFDH 
0E1H 
0F5H 
0E1H 
CECH 
OELH 
0E4H 
OElM 
OOCH 
0E1H 
0D4H 
0E1H 
0C8H 
0E1H 
0C7H 
0  E 1 H 
0C7H 
0E1H 
0C6H 
0E1H 
OCbH 
0E1H 
0C4H 
0E1H 
0C3H 
0E1H 
0C2H 
0E1H 
0C2H 
0E1H 
0C1H 
OE  1H 
OCOH 
0E1H 
OBFH 


OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
OOOH 
01DH 
OOOH 
OFDH 
OOCH 
0')'JH 
OOOH 
07CH 
OOOH 
03CH 
OOOH 
OFDH 
OOOH 
OBDH 
OOOH 
07EH 
OOOH 
03EH 
OOOH 
OFFH 
OOOH 
ODFH 
OOOH 
OOCH 
OOOH 
036H 
OOOH 
065H 
OOOH 
092H 
OOOH 
OBFH 
OOOH 
OECH 
OOOH 
019H 
OOOH 
046H 
OOOH 
072H 
OOCH 
09FH 


049H 
04BH 
049H 
04BH 
04  9H 
04BH 
049H 
04BH 
04  9H 
04BH 
049H 
04BH 
04  9H 
04BH 
049  H 
04BH 
049H 
04BH 
049H 
048H 
04  9H 
04BH 
049H 
04SH 
049H 
04BH 
049H 
04BH 
049H 
C4BH 
04  OH 
04DH 
049H 
04DH 
049H 
04DH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
04  9H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04  CH 
049H 
04CH 
04  9H 
04CH 
04  9H 
04CH 


OOOH 
0E9H 
OOOH 
0E7H 
OOOH 
0E5H 
OOOH 
0E3H 
OOOH 
OECH 
OOOH 
ODEH 
OOOH 
ODCH 
OOOH 
ODAH 
OOOH 
0D8H 
OOOH 
0D6H 
OOOH 
0D4H 
OOOH 
0D4H 
OOCH 
OCOH 
OOOH 
OCEH 
OOOH 
OCCH 
OOOH 
0A3H 
OAOH 
C9BH 
OAOH 
0  93H 
OAOH 
08CH 
OAOH 
OS^H 
OAOH 
0F9H 
OAOH 
OEAH 
OAOH 
ODBH 
OAOH 
OCBH 
OAOH 
OBCH 
0  (■■  OH 
0B4H 
OAOH 
0B3H 
OAOH 
OBIH 
OAOH 
OAFH 
OAOH 
OAEH 
OAOH 
OACH 
OAOH 
0A8H 
OAOH 
0A9H 
OAOH 
0A8H 
OAOH 
0A6H 
OAOH 
0A5H 


OOOH 
041H 
OOOH 
02BH 
OOOH 
016H 
OOOH 
001H 
OOOH 
OEBH 
OOOH 
006H 
OOOH 
0C1H 
OOOH 
OABH 
OOOH 
096H 
OOOH 
081H 
OOOH 
06SH 
OOOH 
068H 
OOOH 
04  1H 
OOOH 
02BH 
OOOH 
016H 
OOOH 
061H 
OOOH 
OEOH 
OOOH 
OFEH 
OOOH 
04CH 
OOOH 
09BH 
OOOH 
0D3H 
OOOH 
0  70H 
OOOH 
OOCH 
OOOH 
0A9H 
OOOH 
046H 
OOOH 
094H 
OOOH 
OOAH 
OCOH 
060H 
OOOH 
0F7H 
OOOH 
06  OH 
OOOH 
0E3H 
OOOH 
059H 
OOOH 
OCFH 
OOOH 
045H 
OOOH 
OBBH 
OOOH 
031H 


043H, 
04BH, 
04BH, 
046H, 
04BH, 
04BH, 
043H, 
04BH, 
043H, 
04BHt 
04BH, 
04BHT 
04BH» 
04BH, 
043  H, 
04QH, 
04DH, 
04DH, 
04DH  t 
04DHT 
04CH, 
04CHt 
04CHT 
04CH, 
04CH, 
04CH, 
04CH  , 
04CH, 
04CH, 
04CH, 
04CH  t 
04CH» 
04CHt 
04CH, 
04CH, 
04CH, 
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06AH, 
0C4H, 
06BH, 
0C4H, 
06CH, 
0C4H, 
06DH, 
0C4H, 
06EHt 
0C4H, 
06FH, 
0C4H, 
070H, 
0C4H, 
0  7J.Ht 
0C4HT 
072H, 
0C4H, 
073H, 
0C4H, 
074H, 
GC4H, 
075H, 
0C4H, 
076H, 
0C4H, 
0  7  7Hf 
0C4H, 
078H, 
0C4H, 
0  79H, 
0C4H, 
07AH, 
0C4ri, 
07BH, 
0C4H, 
OVCHt 
CC4H, 


OELH, 
03EH, 
OE1H, 
OBDH, 
OE1H, 
03DH, 
OE1H, 
OBCH, 
OELH, 
OSBH, 
OE1H, 
08AH, 
OE1H, 
039H, 
OElht 
0B9H, 
OE1H, 
OB3H, 
0  E 1 H , 
0  3  7H, 
OElHf 
0B6Ht 
OE1H, 
OB5Ht 
OE1H, 
OB4H, 
0  E 1  H , 
OB4Ht 
0  E  1 H  , 
OB3H, 
OE1H, 
OB2H, 
OElHt 
OB]  H, 
OE1H, 
OB  OH, 
OE1H, 
CAFHt 


OOOH 
OCCH 
OOJH 
0F9H 
OOOH 
026H 
OOOH 
053H 
OOCli 
OtiOH 
OOOH 
OACH 
OOOH 
009H 
OOOH 
006H 
OOOH 
033H 
OOOH 
C60H 
OOOH 
030H 
OOOH 
0B9H 
OOOH 
0E6H 
OOOH 
013H 
OOOH 
040H 
OOOH 
0  6DH 
OOOH 
09AH 
OOOH 
OC7H 
OOOH 
0F3H 


049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
04  9H 
04CH 
04  9H 
04CH 
049H 
04CH 
049H 
04CH 
04  9H 
04C.H 
049H 
04CH 
049H 
04CH 
049H 
04CH 
049H 
04CH 
04  9H 
04CH 
049H 
04CH 
C49H 
04CH 
04  9H 
04CH 
049H 
04CH 
049H 
04CH 


OAOH 
0A3H 
OAOH 
0A2H 
OAOH 
OAOH 
OAOH 
09FH 
OAOH 
09DH 
OAOH 
09BH 
OAOH 
09AH 
OAOH 
093H 
OAOH 
09  7H 
OAOH 
095H 
OAOH 
0  94H 
OAOH 
092H 
OAOH 
09  IH 
OAOH 
08FH 
OAOH 
08EH 
OAOH 
08CH 
OAOH 
03BH 
OAOH 
089H 
OAOh 
08  7H 


,000H, 
,0A7H, 
,000H, 
, 01DH, 
,COOH, 
,093H, 
,000H, 
,009H, 
,OCOH, 
,080H, 
,C00H, 
,0F6H, 
,000H, 
,06CH, 
,000H, 
,0E2H, 
,000H, 
,058H, 
,000H, 
,0CEH, 
,000H, 
, 044H, 
,000H, 
,OBAH, 
tOOOH, 
, 030H, 
,0OOH, 
,0A6H, 
tOOOH, 
,01CH, 
,000H, 
,092H, 
,000H, 
,003H, 
,000H, 
,0  7Fh, 
,000H, 
f0F5H, 


04CH, 
04CH, 
04CH, 
0  4CH, 
04CH, 
0  4CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH, 
04CH  , 
04CH, 
04CH) ; 


DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 

DECLARE 
DECLARE 
DECLARE 
MCM: 


MCN2: 


»OABH» 
»OBBH« 


INIT  LITERALLY  'OCOH' ; 
DAT   LITERALLY  •ODOH«; 
SEND$IDN£J    LITERALLY 
FROMSBUFFER  LITERALLY 
EMPTY  LITERALLY  •OCCH,; 
INTER  LITERALLY  «OBOH»; 

(INDXtPID)  ADDRESS; 
{ RUN. IDNOtRST, IBP)  BYTE; 

( IDLE, I,TI tNI, JtNUMB)  BYTE; 
TABLE(80)  BYTE; 

ENTER  LITERALLY  '3FFDH'; 

PQ8UFF(130)     BYTE; 

FOREVER  LITERALLY  "WHILE  lf; 

PROCEDURE ( FUNCi INFO) ; 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTER; 

END  MONl; 

PROCEDURE (FUNC, INFOBYTE; 
CECLARE    FUNC    BYTE,     INFO    ADDRESS; 
GO    TO    ENTER; 
END    M0N2; 


PRINTCHAR:     PROCEDURE ( 3) ; 
/*    SEND    THE    ASCII 
CECLARE    B     BYTE; 
CALL    MONl (2,B) ; 
END    PRINTCHAR; 


CHARACTER    B    TO    THE    CONSOLE    */ 


CRLF:  PROCEDURE; 

/#    SEND   CARRIAGE-RETURN-LINE-FEED    CHARACTERS    */ 


128 


PRINT: 


READ: 


TRANS 


\    CCNV: 

GETC: 
RE4DC: 

READF: 


CLCCK 


NEGAT 


DECLARE 
MAM: 


CALL  PRINTCHAR(ODH) ; 
CALL  PRIMTCHAR(OAH) ; 
END    CRLF; 

PROCEDURE! A) ; 
/*    PRINT    THE    BUFFER 
DECLARE    A    ADDRESS; 
CALL    MON1 (9, A) ; 
END    PRINT; 


STARTING    AT    ADDRESS    A    */ 


PROCEDURE; 

/*  READ  CONSOLE  CHARACTFRS  INTO 

RDBUFF=128;  /*  FIRST  BYTE  SET  TO 

CALL  MCNK  10t  .RD8UFF); 

END  READ; 


« RDBUFF'  */ 
BUFF.  LENGTH: 


PROCEDURES)  BYTE; 

/*  RETURNS  THE  ASCII  CHARACTER  OF  THE  NUMBER  */ 

CECLARE  B  BYTE; 

IF  B<10  THEN  RETURN  B+»0'; 

ELSE  RETURN  3-1.  0«-«  A«  ; 

END  TRANS; 


PROCEDURE(B)  BYTE; 

CECLARE  3  BYTE; 

/*  RETURNS  THE  VALUE 

RETURN  3-'0« ; 

END  CONV; 


OF  THE  NUMBER  CHARACTER  */ 


PROCEDURE  BYTE; 
RETURN  RDBUFF ( { IBP 
END  GETC; 


=IBP+1)-1) 


PROCEDURE 

BYTE; 

DECLARE  B 

BYTE; 

B=GETC; 

RETURN  B; 

END  READC 

» 

PROCEDURE 

BYTE; 

DECLARE  3 

BYTE; 

B=  CONV(R! 

EADC) ; 

/*  FIRST  I 

3HARACTER 

RETURN  SHL(3,3 
END  READP; 


IS  MULTIPLIED  3Y  10 
)+SHL( Bf 1 )+CCNV(READC) ; 


*/ 


PROCEDURE  BYTE; 
DECLARE  T(4)  BYTE,  I  BYTE; 
DO  1=0  TO  3; 
Tl  I  )=INPUT<6)  ; 
END; 

DO  1=0  TO  2; 

IF  T(H-1)=T(I)  THEN  RETURN  255-T(I); 
END; 

CALL    CRLF; 

CALL    PRINTC.'CAN    NOT    READ    TIME.$a)i 
RETURN    I; 
END    CLOCK; 

PROCEDURE(V)     BYTE;/-    TRUE     IF    NUMBER     IS    NEGAT.*/ 
DECLARE    V    ADDRESS,    W    BASED    V    BYTE; 
JF    (W(2)     AND    30H)     <>    0    THEN    RETURN    I; 

ELSE         RETURN    0; 
END    NEGAT; 


DEC(4)  BYTE; 
PROCEDURE(W) ; 
/*  FILLS  UP  A 
REPRESENTS 


VECTOR  OF  4 


INTEGERS  THAT 
OF  THE  MANTISSA 


THE  CONVERSION 
TO  DECIMAL  FORM   */ 
DECLARE  W  ADDRESS,  Y  BASED  W  BYTE; 
DECLARE  (ONE, TWO, THREE, FOURi  ADDRESS, 

{ AUX, TEMP, 01 )  ADDRESS, 

(ItJiK)  BYTE; 
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0NE=SHR(Y,4)*625; 
AUX=(Y  AND  0FH)*3906; 
TWO=AUX/100; 
AUX=AUX-(  TWO*100)  ; 
TEMP-AUX; 

AUX=SHR<Y( 1  ),4)*244; 
THREE=AUX/100; 
AUX=AUX-<THREE*100) J 
TEMP=TE.MP  +  AUX; 
I        AUX=( Y< 1)  AND  0FH)*15; 
FOUR=AUX/100; 
AUX=AUX-( FOUR* 100) ; 
TEMP=TEMP+AUX+50; 

AUX  =  O.ME*TWO  +  THREE*FOUR  +  TEMP/100; 
-^  DO  1=1  TO  4; 
J=4-I ; 

DI  =  l; 

DO  K=l  TO  J; 
D I  =  10*0 1; 

END; 

CEC( I )  =  AUX/DI  ; 

AUX=aUX-DEC<  d*di  ; 

END: 

END  MANT; 


DEC  IK 


INTEG. 


PC  TEN 


INDEX 


PROCEOURE(Q) ; 

/*  DISPLAYS  THE  DECIMAL 

PART  OF  VARIABLE     */ 

DECLARE  0  BYTE; 

CALL  PRINTCHAR( » . ■ ) ; 

CALL  PRINTCHAR(TRANS (Q) 

RETURN; 

END  DECIM; 


POINT  AND  FRACTIONAL 


PROC 
/*  0 

AND 
IS  1 
DECL 
DECL 
DO  I 
J  =  N- 
DI  =  1 
DO  K 
DI  =  i 
END; 
V=R/ 
CALL 
R=R- 
END; 
RES  = 
RETU 
END 


DURE(RfN)  BYTE; 

SPLAYS  THE  INTEGER  PART  OF  VARIABLE 

ETURNS  THE  REMAINDER.  THE  ARGUMENT 

TIMES  THE  VARIABLE   */ 
RE  (  IfNt  J,P.EStVl  BYTE,  (R,DI)  ADDRESS 
RE  K  BYTE; 
0  TO  N-l ; 


1  TO 

*Dl; 


J-l 


D  I  * 

PRINTCHAR(TRANSCV) ) ; 
V*DI  ; 

r; 

RN  RES; 
INTEG; 


PROCEDURES)  ADDRESS; 

/*  COMPUTES  THE  EXPONENTIAL  PART  OF  THE 

NORMALIZED  NUMBER   */ 

DECLARE  Y  ADDRESS,  X  BASED  Y  BYTE; 

DECLARE  VAL  ADDRESS; 

DECLARE  (N,I)  BYTE; 

N=X(2)  AND  3FH; 

VAL=l; 

DO  1=1  TO  N; 

VAL=SHL(VAL,1 ) ;   /*  MULT.  BY  2  */ 
END; 

RETURN  VAL; 
END  POTEN; 


PROCEDURE(T)  BYTE; 
/*  USING  REAL  TIME 
THE  NAVTAB   */ 
DECLARE  T  BYTE; 


FINDS  THE  INDEX  TO 
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IF  T  <  93  THEN  RETURN  T/10; 
ELSE  00;   IF  T  <=  95  THEN  RETURN 
ELSE  RETURN  T-95+10; 
END; 
END  INDEX; 


10 


BYTE; 

1 ) ; 


N 


( CNE*DI) )*10*TEMP)*DN; 
TWO=TWC/10 ; 


DSPLV:   PROCEDURES, M  ); 

/*  THIS  PROCEDURE  CONVERTS  THE  HEXADECIMAL 
VALUES  TO  DECIMAL  FORM  IN  ORDER  TO  BE 
DISPLAYED  */ 
DECLARE  (P, ACUN,REM,AUX,UP)  ADDRESS, 
(DI,0NE,TWG,DN1  ADDRESS, 
(  M ,  LOW  ,  I  ,TE M P ,  J  ,  N  tK , L  » BT E  ) 
IF  NEGAT(P)  THEN  CALL  PR  INTCHAR(  • -- 
CALL  MANT( P) ; 
ACUM=0; 

rem=o; 
aux=pgten(p )  ; 

UP-AUX/10; 

LOW=AUX-( UP*10) ; 
A  i      DO  1=1  TO  4; 

AUX=UP*DEC<  I) ; 

TEMP=LOW*DEC( I) ; 

J=I~1; 

Dl  =  l; 

DO  K=l  TO  J; 

DI*10*DI ; 

END; 

N-3-I ; 

DN=l; 
!~3    DO  L=l  TO 

DN*10*DN; 

END; 

CME=AUX/DI 

TWO=< (AUX 

IF  11=4)  THEN 

ACUM=ACUM+GNE; 
,   REM=REM+TWO; 
ltJ    END; 

ACUM=ACUM*REM/1000; 

REM=REM-( REM/1000) *1000; 

DO  1=1  TO  M; 

J=M-I; 

DI  =  l; 

DO  K=l  TO  J; 
DI=10*DI; 
END; 

BTE=ACUM/DI; 
L(r    CALL  PRINTCHAR(TRANS(BTE)  )  ; 
ACUM=ACUM-BTE*DI ; 
END; 

CALL  PRINTCHARt « .« ) J 
DO  1  =  1  TO  2*, 
J  =  4-I ; 
Dl  =  l; 

DO  K=l  TO  J; 
DI=10*DI; 
end; 

BTE=REM/DI ; 

CALL  PRINTCHARCTRANSCBTE) ) ; 

REM=REM-BTE*DI; 

END; 

END  DSPLV; 

DISPLAY:   PROCEDUR E ( IND ) ; 

/*  THIS  PROCEDURE  DISPLAYS  THE   POSITION, 
SPEED  AND  DIVE  ANGLE  OF  THE  AIRCRAFT  */ 
DECLARE  (VAXtlND)  ADDRESS,   RST  BYTE; 
CALL  CRLF ; 

CALL  PRINT* .'AT  TIME:  $e) ; 
VAX=NAVTAB{ I  NO)  ; 
RST=INTEG(VAX,2J ; 
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•SPEED=  $• ) 
NAVTABUND) 
'  KNOTS  $• ) 


,3) 


CALL  DECIM(RST) 
IND=IND+l ; 
CALL  CRLF; 
CALL  PRINK 
CALL  OSPLV( 
CALL  PRINK 
IND=IND+3; 
CALL  CRLF; 
CALL  PRINK 
CALL  DSPLVI 
CALL  PR  I  NT ( 
INC=INO+3; 
CALL  CP.LF; 
CALL  PRINK 
CALL 

CALL  PRINK 
IND=IND+3; 
CALL  CRLF; 
CALL  PRINK 
CALL  DSPLV( 
CALL  PRINK 
CALL  CRLF; 
CALL  CRLF; 
RETURN; 
END  DISPLAY; 

FLCAT:  PROCEDURE( INN, FA) ; 
/*  A  PROCEDURE  TO  CONVERT  AN  INTEGER  INN  TO 
A  FLOATING  POINT  WHOSE  MANTISSA  IS  FOUND  IN 
ADDRESSES   FA  AND  FA+1   AND  WHOSE  EXPONENT 
IS  IN  FA  <-2   */ 


CALL  PRINT! . •  SECONDS  $' ) 


•DIVE  ANGLE=  $« 
NAVTABUND)  ,2)  ; 
»  DEGREES  $'); 


ALTITUDE=$» ) ; 
DSPLVi  .NAVTABUND)  ,4) 
»  FEET  $«  )  ; 


•DISTANCE  TO  TARGET= 
NAVTAB( IND)  ,4) ; 
•  YARDS  $'  )  ; 


$•) 


DECLARE  (INN, FA) 
MAN7  BASED  FA 
INT  BASED  INN 
N  BYTE; 

IF  INT  =  0 


ADDRESS 

BYTE, 

ADDRESS, 


MANN  ADDRESS, 


/*  CHECK  FOR  ZERO  INPUT  */ 


THEN       DO; 

MANK2)  ,MANK  1  )  ,MANT    =    0; 

RETURN     ; 

END; 


MANK2)     =    50H; 
MANN    -     INT; 


/*    EXPONENT    =    2**16       */ 


IF    (     MANN    AND    8000H)     =    6000H    THEN 
/*  -NEGATIVE     INTEGER    */ 

DO;  MANK2)     =    MANT(2)     OR    80H  ;    /*    SET    SIGN    BIT 

KANN  =     1-MANN     ;  /*    COMPLEMENT 

END; 

N  =  l;  f*    NORMALIZE  MANTISSA  */ 

DO  WHILE  ((  SHL<MANN,1)  AND  8000h)  <>  3000H); 

N=N+l; 

MANN  =  SHL(MANN,1  )  ; 
END; 


*/ 

*/ 


MANN=  SHL(MANN,1  )  ; 

MANT(2)  =  MANK2)  -  N;   /*  ADJUST 
MANT     =  HIGH (MANN);    /*  ASSIGN 
MANT(l)  =  LOW(MANN); 
RETURN  ; 
END  FLOAT; 
DECLARE  ZE  BYTE,  ZZ  ADDRESS; 
DECLARE  YE  BYTEtXE  BYTE; 

/*  FLOATING  POINT  ADD  ROUTINE*/ 
ADD:  PROCEDURE  (XA,YA,PA); 

DECLARE  (XA,YA,ZA)  ADDRESS, 
FA  ADDRESS,  P  BASED  PA  BYTE, 

<I,R2,Y2, DIGIT, SINE)  BYTE, 


EXPONENT 
MANTISSA 


*/ 
*/ 
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X  BASED  XA  BYTE, 
Y  BASED  YA  BYTE, 
(XX, YQ)  ADCRESS; 

/*  PPCCEDURE  TC  LEFT  JUSTIFY  MANTISSA  IN  BINARY  */ 
ADJLST:  PROCEDURE; 
DO  1=0  TO  15; 

IF  ill    AND  8000H)=8000H  THEN  RETURN; 
ZZ=SHL< II, I) ; 
ZE=ZE-1; 
END;    RETURN; 
ENC  ADJUST; 

XX=SHL( OQUBLE(X) ,8)  OR  X(l); 
YC=SHL(DCU8LE(Y) ,8 )  OR  Y(l); 
R2=      X(2)  AND  7FH; 
Y2=      Y(2)  AND  7FH; 
DIGIT=R2-Y2; 
SINE  =(X(2)  AND  80H)  XOR  (Y(2)  AND  80H); 
IF  (DIGIT  AND  80H)<>0     THEN  0  I G I T  =  -DI G IT ; 
IF  DIGIT  >=  16   THEN  DO; 
/*  VARIABLES  NOT  WITHIN  SIGNIFICANCE  RANGE  */ 
IF  R2  >  Y2  THEN  DO; 
ZZ=XX;  ZE=X(2) ;  GO  TO  RET; 

END; 
ZZ=YQ;  ZE=Y(2) ;  GO  TO  RET; 
END; 
IF  Y2  =  R2  THEN  DO; 
/*  EXPONENTS  EQUAL  IN  ABSOLUTE  VALUE      */ 

IF  YQ>XX  THEN  DO; 
/*  Y  >  X  */ 

ZE=  Y(2) ; 
IF  SINE  <  80H  THFN  GO  TO  EXIT1; 
GO  TO  EXIT2; 
END; 
IF  YQ<XX  THEN  DO; 
/*  X  >  Y  */ 

Z  E  =X ( 2 ) * 
IF  SINE  <  80H'THEN  GO  TC  EXIT1; 
GO  TO  EXIT3  5 

END; 
/*  X  =  Y  */ 

IF  SINE  <  80H  THEN  DO; 
ZE=X(2);       GO  TO  EXITl;        END; 
ZZ=0; 

ZE    =  0; 
GO  TO  RET; 
END; 
IF  Y2  >  R2  THEN  DC; 
/*  Y  >  X  */ 

ZE    =      Y(2)  ; 
XX=SHR(XX, DIGIT) ; 

IF  SINE  <  80H  THEN  GO  TO  EXITl; 
GO  TO  EXIT2  ; 
END; 
/*  X  >  Y  */ 

Z  E    =      X  (  2  )  * 
YQ=SHR(YQ, DIGIT) ; 

IF  SINE  <  80H  THEN  GO  TO  EXITl; 
GO  TO  EXIT3; 
EXITl: 
ZZ=XX+YQ; 
IF  CARRY  THEN  DO; 
ZZ=SCR(ZZ, l) ; 
ZE=ZE   +i; 
END; 

GO  TO  RET; 
EXIT2: 

ZZ=YQ-XX; 
CALL  ADJUST; 
GO  TO  RET; 
EXIT3: 


133 


zz=xx-yq; 

CALL  ADJUST; 
RET:   P=HIGH(ZZ) ;P(1 J=  LCW( Z Z ) ; P ( 2) =Z E ; 

RETURN; 
END  ADD; 


SUB:  PROCEDURE  (AD, 3D, CD); 
DECLARE  (AD,BD,CD)  ADDRESS, 

BYTEt 

BYTE, 

BYTE; 

3)  BYTE; 

0)  ; 

1)  ; 

2)  XOR  80H; 
AD,  ,BC,CD) ; 


A  EASED  AD 
B  BASED  BD 
C  BASEC  CD 

DECLARE  BC  ( 
BC(0)= 
BC( 1 )= 
BC(2)= 

CALL  ADD 

END  SUB; 


8( 

B( 

B( 

( 


/*  FLCAT 
MULT: 
DECLA 
DECL 
XA 
YA 
FA 
TC  A 
SAVE  = 
IF  (X 

zz=o 

X(l) 
TT  = 
TG  =  S 

zz=o 

DC  1 

zz  = 

TC  = 
IF  ( 
11  = 

END; 
end; 

IF  ( 
ZZ  = 

ZE=- 
end; 
ELS 
/*  A 
ZE  = 
OR 
XOR 
RET:   p= 
X(  1)  = 
R 
END 


ING  POINT  MULTIPLY  ROUTINE 

PFOCEDURE(XA, YA,PA) ; 
RE  SAVE  BYTE; 
ARE   I  BYTE, 

ADDRESS,  X  BASED  XA  BYTE, 
ADDRESS,  Y  BASED  YA  BYTE, 
ADDRESS, P  BASED  Pa  BYTE, 
DDRESS,  TT  ADDRESS; 
X  (  1 ) ; 

=0)  OR  (Y=0)  THEN  DO; 
;  ZE=0:  GO  TO  RET;  END; 
=SHR(X( 1 ) ,1 ) ; 
SHL< DOUBLE* X) ,7)  OR  X( 1 ) ; 
HL{OGUBLE(Y) ,8  )  OR  Y( 1 ) ; 

=0  TC  15  BY  1; 
SCR  <ZZ,1); 
SCR(TQ, 1) ; 
CARRY)  THEN  DO; 
ZZ+TT; 


t-  f 


ZZ<6000H)  THEN 
SHL(ZZ,1) ; 

l; 


DO; 


E  ZE 
DD  E 
(<X( 
(  <X( 
<  Y 
HIGH 
SAVE 
ETUR 
MULT 


=  0; 

XPONENTS   */ 

2)  AND  7FH)  +(Y(2)  AND  7FH)-64  +  ZE) 

2)  AND  80H1 

12)  AND  30HU; 

(ZZ) ;P(i )=  loh(ZZ) ; P(2)=ZE; 

n; 


/*  ROUTINE  TO  COMPARE  TWO  FLOATING  POINT  VARIABLES 
/*     IF  X<Y  COMPARE=0 
X=Y  CCMPARE=1 
X>Y  C0MPARE=2     */ 
COMPARE:  PROCEDURE  (XA,YA)  BYTE; 
DECLARE  X  BASED  XA  BYTE, 
Y  BASED  YA  BYTE, 
(XA,YA,CHECK1,CHECK2 )  ADDRESS, 
(XP,YP)  BYTE; 

/*  EQUAL  EXPONENTS  */ 
XE=X(2J  AND  80H; 
YE=Y(2 )  AND  80H; 

IF  (  XE=YE  )  THEN  DO; 
XP=X(2>  AND  7FH; 
YP=Y(2J  AND  7FH 
CHECKL=SHL(DOUBLE(X) 


8) 

CHECK2--=SHL(DCUBLE(Y),8) 


OR 
OR 


1) 
1) 
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IF    (     XE=80H     )     THEN    DO; 

IF     (     XP<YP     )     THEM    RETURN    2; 
IF     ( XP    >    YP     )     THEN    RETURN    0; 

IF    CHECK2    <    CHECK1     THEN    RETUPN    0; 
IF    CHECK2    >    CHECK1    THEN    RETURN    2; 
RETURN    1; 
END; 

IP     (     XP    <    YP    )     THEN    RETURN    0; 
IF    {     XP     >    YP     )     THEN    RETURN    2; 
IF    CHECK?    <    CHECK1     THEN    RETURN    2; 
IF    CHECK2    >    CHECK1     THEN    RETURN    0; 
RETURN    1; 
END; 
IF    (     XE    =    0     )     THEN    RETURN    2; 
RETURN    0; 
END    CCMPARE; 
DIV:       PROCEDURE     (XA?YA,PA); 

DECLARE     (XA,YA,Z A,B,XX,YQ)     ADDRESS, 
PA    ADCRESStP    BASED    PA    BYTE, 
I     BYTE, 

X    BASED    XA    BYTE, 
Y    BASED    YA    BYTE, 
C     (3)     BYTE; 


XX=SHL( D0U3LE(X) ,8)    OR    X(l); 
YC=SHL( D0U3LE(Y) ,8)     OR    Y(l); 
IF    XX    =0H    THEN    DO; 

ZZ=OH;    ZE=OH;    GO   TO   RET; 
END; 
XX=SHR(XX,  1)  ; 
YG=SHR( YQ, 1) ; 
ENTO:     ZZ  =  0; 

C(2)  =  X(2); 

1  =  1; 

R=XX-YO * 

IF    NOT    CARRY    THEN    DO; 

IF    6=0    THEN    DO; 
ZZ=8000H; 
ZE=(((     X<2)     AND    80H)     XOR    (    Y(2)     AND    80H)) 
OR     UC(2)     AND    7FH)-<Y(2)     AND    7FH)+65J) 
GO    TO    RET; 
END; 
GOTO    ENT2; 
END; 
XX=SHL(XX,  I) ; 

C(2J=     (C(2)  AND  7FH)  -  1; 
ENTl:  B=XX-YC; 

IF  CARRY  THEN  DO; 
XX=SHL(XX,1 ) ; 
GOTO  ENT3; 
END; 
/*  NC  CARRY,  ADD  ONE  TO  DIVIDEND  TO  MANTISSA  AND 

SHIFT  LEFT  */ 
ENT2:  XX=SHL(B,1); 

ZZ=ZZ+1;  T   , 

/*  CARRY  SHIFT  DIVIDEND  MANTISSA  LEFT  */ 
ENT3:  ZZ=SHL(ZZ,1); 
1=1+1; 

IF  K  16  THEN  GOTO  ENTl; 
/*  SET  EXPONENT  *         ^^  xqr  (     y(2J  ^D    QQH)  )     QR 

((C(2)  AND  7FHI  -  (  Y(2)  AMD  7FHJ+65)); 
RET:   P=HIGH(ZZ) ;P( 1 )=  LOW ( ZZ ) ; P( 2 ) = ZE ; 
RETURN; 
END  DIV; 

DECLARE  R°T  BYTE; 
DECLARE  (OTT,DRT)  (3)  BYTE; 
DECLARE  (  IJ,TZ, ZI  )  BYTE; 
DECLARE  BUFF(27)  BYTE; 
DECLARE  iINB,OUTB)  BYTE; 
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DECLAR 
DECLAR 
/*  INT 

DECLAR 
/*  COE 
DECLAR 
DECLAR 
DECLAR 
DECLAR 
FTAB: 


P  C  L I N : 


E    FT(12 
E     (R0,R 
ERMEDIA 
E    CONS( 
FFICIEN 
E     (DTTP 
E    AUX(2 
E     (EXVA 
E    RTM    B 
PROCE 
/*    FI 
/*    NE 
DECLA 
DECLA 
CTE  =  0 
CTE(1 
CTE<2 
DO    1  = 
K=SHL 
J=  I  + 1 
TIM=T 
CALL 
CALL 
END; 
RETUR 
END    F 
PROCE 
/*    TH 
AM 
NE 
OR 
WI 
TH 
TH 
RE 
SO 
CECLA 
DO    1  = 
DO    1= 
DRTP( 
DO    1  = 
/*    SO 
CONS= 
/*    BO 
DO     1  = 
J=  I  +-I 
CALL 
END; 
CALL 
/*    SI 
DO    1  = 
J  =  I+I 
CALL 
DO 
RO( 
END 
CALL 
DO 
SRO 
END 
CALL 
END; 
/*    Bl 
DO    1  = 
J=I  +  I 
CALL 
CALL 
END; 
CALL 
CALL 


)  BYTE; 
01,R001t S 

TE  RESULT 
27)  BYTE; 
TS  OF  THE 
tDRTP)  (1 
1)  BYTE; 
L,EXDTT, 
YTE; 
DURE; 
LLS  THE  V 
CESSARY  F 
RE  ( I« J,K 
RE    CTE(3i 

aoh: 
)=oh; 

)=44H; 

0  TO  3; 
(1,4) ; 
+  i; 

ABLE(K) ; 
FLOAT( .TI 
DIV(  .FT(  J 


/*  FLOATING  POINT  TIME  ARRAY  */ 
R0,SR01)  (12)  BYTE 
S  OF  THE  PROCEDURE 
/*  CONSTANTS  OF 
PGLINDMIALS  */ 
2)  BYTE; 


POLIN  */ 
POLINOMIAL  */ 


EXDRT)  (3)  BYTE; 


ECTOR    OF    FLOATING 
OR    THE    POLIN    PROCE 
)     BYTE,     TIM    ADORES 
BYTE; 


POINT    TIME 
DURE    */ 

S; 


*/ 


M , .  F  T  (  J ) )  ; 

)  ,  .CTE,  .FT( J) J; 


n; 
tab; 

DURE 
IS  P 
D  TH 
CESS 
THOG 
LL  3 
E  CO 
E  SY 
FER 
» B  0 , 
RE  ( 
1  TO 
i  TO 
I  J=0 
i  TO 
=4.0 
80H; 
:  */ 
0  TO 

+  1; 

ADD( 

DIV{ 
:  */ 

0  TO 

+  i; 

SUB( 
K=0 
J  +  K) 


RCCED 
E  COE 
ARY  F 
ONAL 
E  STO 


URE  CO 
FFICIE 
OR  THE 
POLING 
RED  IN 
IENTS 

GIVEN 
E  FORT 
tClf S2 
,  L)  BY 

CONS( 
OTTP(I 

D; 

AUX(  I 


MPUTES  THE  C 
NTS 

EXTRAPOLATI 
MIALS  .  THE  C 

THE  ARRAY  C 
IN  ARRAYS  DT 

IN  THE  COMM 
RAN  SIivULATI 
f32»C2fS3» • • 

te; 

I)=0;   END; 

)=0; 


onstants 


EFFIC 

MB0LS 
TO  TH 
SI, 61 
I  f  J  f  K 

27; 

12; 
;   EN_ 

18;   AUX(I)=0;   END; 

*/ 
CONS(l)=0H;   CCNS(2)=43H; 


ON  BY 
ONSTANTS 
ONS  AND 
TP  AND  DRTP 
FNTS 
ON, I.E. 
*/ 


3; 

.CONS 
.CONS 
3; 


(3)  , .FT< J)  , .C0NS(3 
(3) , ,C0NS,.CGNS(3) 


)  ); 
)  ; 


)  f.CONSm  »  .AUXi  ; 
K); 

,.AUX, .AUX)  ; 
(K)  ; 
ADD( .CONS (6), .AUX,.C0NS(6) ) 


MULT 
K=0 
(  J  +  K 


.FT(  J 

TO  2; 
=  AUX( 

(  .AUX 
TO  2; 
)=AUX 


fCl  : 
0  TO 
+  1; 

MULT 
ADD( 

DIV( 
DIV( 


3; 

(  .FT( 

.CONS 

.CONS 
.CONS 


J) ,. SRO (J), .AUX); 
(9) , .AUX, ,CCNS(9) ) 

(9) , ,C0NS<6)  ,  .CONS 
(6) , ,CONS,.CONS( 12 


(9))  ; 
)  ); 
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/*  S?:  */ 

DO  1=0  TO 
J=I+H-I  ; 
CALL  SUB( 
CALL  MULT( 
CALL  SUB( 

DO  K=0  Tl 

R01 ( JfK) 

END; 
CALL  MULT( 

DO  K=0  Tl 

SR01 (  J  +  K 

END; 

CALL  ADD(  .C0NSU5)  , . AUX , . CCNS ( 15 )  )  ; 
END; 

/*  B2,C2: 
DO  1=0  TO 
Jsl+I+I; 

CALL  MULT( 


3; 

FT( J) ,.C0NS(9 ) ,  .AUX) ; 
.AUX,.RO( J) ,  .AUX); 
AUX, .CGNS( 12) , .AUX) ; 
'0  2; 
=AUX(K) ; 

•  AUX, .AUX, .AUX)  ; 
0  ?.; 
)=AUX(K) ; 


3; 


CALL  ADD( 
END; 

CALL  DIV( 
CALL  DIV( 
/#  S3:  */ 
DC  1=0  TO 
J=I+H-I ; 
CALL  SU5( 


•  FT( J) ,.SR01I J) t .AUX)  ; 
,C0NS(18) , .AUX,. CCNS ( lb ) ) ; 

CONS(  18)  ,  .C0NS(  15),  .CONSd  6)  ); 
CCMS( 15)  , .C0NS(6)  , .CONS (21) ) ; 


CALL  MULT( 

CALL  MULT< 

CALL  SU6(  . 

00  K=C  T 

ROOK  J  +  K 

END; 

CALL  MULT( 

CALL  ADD(  . 

END; 

/*  C(l  ),D( 
DO  1=0  TO 
J=10+SHL( 1 
K=J+3? 
CALL  ADD( . 
CALL  ADD( . 
END; 

CALL  DIV( . 
CALL  DIV( . 
/*  C(2),Dt 
DO  1=0  TO 
J=10+SHL( I 
K=J+3; 
l=i+i+i; 
call  mult< 


3; 

FT( J ) , ,CONS( 18  I t  .AUX) ; 
.  AUX,.R0K  J)  .  .AUX  (3)  ); 
.CONS (21 > , .R0( J)  ,.AUX)  ; 
AUX( 3)f.AUX,.AUX); 

0  2  * 

) =AUX(K) ; 

•  AUX , .AUX,  .AUX )  ; 

CONS (24) , .AUX, .CCNS (24) ) ; 

1  ):  */ 

3; 
,4)  ; 

DTTP,.TA8LE( J ) , .DTTP) ; 
DRT? ,.TABLE(K) ,  .DRTP); 

DTTP, .CONS, .DTTP)  ; 
DRTP, .CONS, .DRTP)  ; 

2  )  :  *  / 

3  ; 
,4)  ; 


ADD(  . 
MULT1 
ADD(  . 


CALL 
CALL 
CALL 
END; 

CALL  DIV( . 
CALL  DIV(  . 
/*  C(3),D( 
DO  1=0  TO 
J=10+SHL( I 

K=J+3; 
L=I+I+I ; 

CALL  MULT( 


CALL 
CALL 
CALL 
END; 
CALL 
CALL 
/*  C 
DO  I 


ADD( 
MULT( 
ADD(  . 


•TABLEi J)  , .R0(L  ),  .AUX)  ; 
DTTP(3) , .AUX, ,DTTP(3) ) ; 
.TABLE(K)  ,,RO(L),  .AUX)  ; 
DRTP(3),.AUX,.DRTP(3) ) ; 

DTTP(3) , .C0MS(6) , ,DTTP( 3) ) 
DRTP(3), .CONS (6)  , .DRTP (3)  ) 
3)  :  */ 
3; 
,4)  ;  ; 


.TABLE(  J)  ,  .ROKL),  .AUX) 
DTTP (6) ,.AUX, ,DTTP(6) ) ; 
.TABLE(K)  ,.R01(  D*  .AUX  ) 
DRTP(6) ,.AUX, .0RTP(6) ) i 


DIV( . CTTP(6), .C0NS(15), .DTTP (6) ) ; 

DIV(  ,DRTP(6) , .CONSi  1 5 ) , .DRT P (6 )  ) ; 
(4), 0(4) :  */ 
=0  TO  3; 
J=10<-SHL(  1,4)  ; 
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EXTRAP 


CCfP: 


K=J 
L=I 

CAL 
CAL 
CAL 
CAL 
END 
CAL 
CAL 
RET 
END 
PRO 
/* 


DEC 

DEC 

DEC 

DO 

AUX 

END 

T  1  M 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAL 

CAl 

CAL 

DO 

EXV 

END 

RET 

END 

PRO 

/* 


+3; 
+  I+I; 

L  MULT 
L  ADD( 
L  MULT 
L  ADD( 

L  DIV( 
L  DIV( 

URN; 

POLIN 
CFDURE 
EXTRAP 
AND  Dl 
VARI A3 
LARE  ( 
LARE  ( 
LARE  C 
1=0  TO 
( I )=0; 

=  TM; 


{  .TABLE(J) , 
.DTTP{9) , .A 
( .TA3LE(K> , 
.DRTP<9), .A 

.DTTP{9) , .C 
.DRTP(9),.C 


(TM,AVEC) ; 
OLATES  VALU 
STANCE  TO  T 
LE  TIME  */ 
TIMjAVEC)  A 
Tli,I)  BYTE, 
TE(3)  BYTE 
21; 


.R001 (L), .AUX ); 
UX, .DTTP(9) ) ; 

.ROOKL)  ,  .AUX)  ; 
UX,  .DRTP(9) )  ; 

ONS( 24),.QTTP<9) ); 
0NS(24)  T.0RTP(9)  ); 


ES    FOR    DOWN    R 
ARGET,    GIVEN 

DDRESS,    FT(3) 

VEC    BASED    AV 

IMITI  AKOAOH, 


ANGE    TRAVEL 
THE 

BYTE; 
EC    BYTE; 
0H,44H); 


FLOA 
DIV( 
SU8< 
MULT 
SUB( 
MUL  T 
SUB( 
SU3( 
MULT 
MULT 
SU3< 
ADD( 
MULT 
ADD( 
MULT 
ADD( 
1=0  TO 
AL(I  )  = 


T(  .TI 
.FT,  . 
.FT,  . 
{  .AUX 
.FT,  . 
(  .AUX 
•  AUX( 
.FT,  . 
(  .AUX 
(  .CON 
.AUX( 
.VEC, 
(  .VEC 
,AUX( 
(  .VEC 
.  AUX( 

2; 
AUX(  1 


M  ,  .  F  T  J 
CTE, .F 
CONS (3 
i .VEC( 
CGNS(9 
(6)  ,  .  A 
6)  ,  .CO 
CCNSd 
(9), .A 
S( 21)  , 
9  )  ,.AU 
.AUX (3 
(6) 


12)  , 
(9), 
12)  , 

2+1) 


T)  ; 
),. 

3), 
),. 

UX, 

NS( 

8), 

UX( 

•  AU 

X(l 
% 

i  ,  • 

UXi 
UX( 
UXt 
UXt 


AUX) 
.AUX 
AUX( 
.AUX 
12), 
.AUX 
6)  ,  . 
X,  .A 

8)  ,  . 
AUX( 
6  5,. 
15)  , 

9)  ,. 
15  ), 


(3) ) ; 

6)  ) ; 
(6) ); 
.AUX(6)  ) ; 
(9) ) ; 

AUX(9) 
UX( 18) 
AUX(9  ) 

12)  ); 

AUX( 15 
.AUX(  1 
AUX(  15 
-AUX(  1 


); 
); 
): 

) )  ; 
2) )  ; 
) ); 
2))  ; 


/* 


DEC 
DO 
PTM 
CAL 
DO 
EXD 
END 
CAL 
DO 
EXD 
END 
IF 
C 
I 
p 

C 
I 

END 
RET 
END 


URN; 

EXTRA 
CEDURE 
AUXILI 
PERFOR 
THE  CU 
DISTAN 
IF  THE 
SOLUTI 
INTERS 
SEARCH 
LARE  ( 
1=1  TO 
=RTM+D 
L  EXTR 
J  =  0  TO 
TT( J)= 

L  EXTR 
J  =  0  TO 
RT(J)= 

(DT  AN 

P=COMP 
F  (  (CP 
LSE  DO 
P=COMP 
F  (  (CP 

• 

URN  o; 
COMP; 


p; 

(DT)  BYTE; 
ARY  PROCEDU 
MS  A  STEPWI 
RVES  OF  DOW 
CE  TO  TARGE 

PROCEDURE 
ON.  IF  IT 
ECTION  HAS 

■X.     I 

f,  J,DT,CP) 

10; 
t; 
AP( RTM,.DTT 

2; 
EXVAL1 J) ; 

AP(RTM,.DRT 

2  * 
EXVAL( J)  ; 

D  30H)  =  0 
AREUEXDRT, 
=2)  OR  (CP= 

ARE(.EXDTT, 
=2)  OR  (CP= 


RE  FOR  THE  SE 
SE  COMPARISON 
N  RANGE  TRAVF 
T   */ 

RETURNS  0,THE 
RETURNS  1,  T 
BEEN  PASSED  D 

BYTE; 


P) 


ARCH: 

BETWEEN 
L  AND 

RE  IS  NO 

HE 

URIN'G  THE 


P) ; 


THEN  DO; 
.EXDTT) ; 
1) )  THEN  RETURN  1;   END; 

•FXDPT) * 

IN     THEN    RETURN     1;       END; 


138 


PCUND: 


SEARCH: 


PROCE 
/*  TO 
TO 
OECLA 
CALL 
DO  J  = 
EXOTT 
END; 
CALL 
DQ    J  = 
EXDRT 
END; 
CALL 
RTM=R 
CALL 
DO  J  = 
EXDTT 

end; 
CALL 
DO  J  = 
EXDRT 
END; 
CALL 
IF  CO 
ELSE 
END  R 
PROCE 
/*  TH 
TH 
TI 
SE 
PR 
DECLA 
IF  CO 
RESUL 
RESUL 
RDRTM 
PETUR 
END  S 


DURE  BYTE; 
CHOOSE  THE  CLOSEST  TIME 
THE  INTERSECTION  OF  THE 

Rt  (DIFO,DIFT)  (3)  BYTE, 

EXTRAP(RTM,.DTTP) ; 

0  TO  2; 

( J)=EXVAL< J) ; 

EXTRAP(RTM, .DRTP) ; 

0  TO  2; 

( J)=EXVAL( J); 


CORRESPONDING 
CURVES   */ 
J  BYTE; 


SUB(  .EXDRT,. EXDTT, .DIFO) ; 

TM-1 

EXTR 

0  TO 

(  J)  = 


AP  (RTMt.DTTP) ; 

2; 
EXVALt  J)  ; 


EXTRAP(RTM,.DRTP) ; 

0  TO  2; 

( J)=EXVAL( J) ; 

SUB(  .EXDTT, .EXDRT, .DIET) ; 

mpare(  .difo, .dift)=2  then  return  rtm; 

return  rtm+1 ; 

ound; 

dure  byte; 

is  procedure  governs  tee  search  for 

e  intersection.  it  will  return  the 

ME  OF  INTERSECTION  , IN  DECIMALS  OF 

CGND.  THE  MEAN  ERROR,  BECAUSE  OF  THE 

OCEDUPE  RCUND«  WILL  BE  0.025  SECONDS   */ 

RE  ( RESUL, RDRTM)  BYTE; 

MP(20)=0  THEN  RETURN  0;  /*   NO  SOLUTION  */ 

=C0tfP(-5)  ; 

=  CCMP( 1  I ; 

=round; 

N  RDRTM; 
EARCH; 


SENDBUFF:  PROCEDURE; 

DECLARE   IX  BYTE; 

I Z=SHL( INB,3KINB; 

INB=INB+1  ; 

TI=TI+1; 

DO    IX=0    TO    8; 

BUFF(  U+IX)=TABLE(TI  +  IX  ) 

end; 

RETURN; 

END    SENDBUFF; 


/*    MULT    BY    9    */ 


realk  procedure; 

/*  displays  the  real  time 

declare  (rtime,rst)  byte; 

rtime=clock; 

call  cflf; 

call  prink. "the  time  now 

rst=integ(rtime,2) ; 

call   decim(rst); 

call  prink.1    secondssm; 

call  crlf; 

return; 

END  REALT; 


*/ 


IS:  $•  ) 


RELPT:   PROCEDURE; 

/*    COMPUTES     AND 
DECLARE     (RST,J) 
RTM=80; 
RPT=SEARCH; 


DISPLAYS  THE 
BYTE; 


RELEASE  POINT  */ 
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IF  RP 

ELSE 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

RST=I 

CALL 

CALL 

CALL 

CALL 

DO  J  = 

DTT 
END; 
CALL 
DO  J  = 

DRT 
END; 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
END; 
RETUR 
END  R 


T  =  0  THEN  CALL  PRINK.  » NO  SOLUTIONS'); 

DO; 

CRLF; 

REALT; 

CRLF; 

PRINK  .'RELEASE  POINT:$«); 

CRLF; 

PRINK  .  «TIME=$«  )  ; 

NTEG( RPT,2) ; 

OFCIM(RST)  ; 

PRINT(  .'  SECONDS!'  ) ; 

CRLF; 

EXTRAP(RPK  .DTTP)  ; 

0  TO  2; 

( J)=EXVAL( J) ; 

EXTRAP(RPT,.DRTP) ; 

0  TO  2; 

! J)=EXVAL! J) ; 

PRINK. 'DISTANCE  TO  TARGET=$«); 

OSPLV(.DTT,4) ; 

PRINK  .'  YAP.DS$'  )  ; 

CRLF  ; 

PRINT { .'DOWN  RANGE  TRAVEL=$«); 

DSPLV( .DRT,4) ; 

PRINT!.'  YARDSS'); 

CRLF; 

n; 

ELPT; 


OTHER  COMPUTER  */ 


INTSERV:   PROCEDURE  INTERRUPT 
DECLARE  (I, J)  BYTE; 
DISABLE; 

CUTPUK3)=INTER; 
IDLE=l; 

J=SHL( NUMB » 4) +13; 
NUMB=NUMB+1; 
DO  1=0  TO  2; 
0UTPUK3)  =1  +  1; 
CALL  TIM£(3); 
/*  TO  GIVE  TIME  TO  THE 
TA6LE( J+I )  =  INPUK7) ; 
END; 

IF  INB  >  OUTB  THEN  DO; 
ZI=SHL(0UTB,3) +OUTB; 
OUTB=OUTB+l; 
IDLE=0; 

OUTPUT! 3 )=FROM$ BUFFER; 
DO  WHILE  INPUK7)  <>  FRQMJEUFFER 
/*  WAITS  FOR  BAL. 
DC  1=0  TO  8; 

DO  WHILE  INPUT! 

OUTPUT! 3)=BUFF! 
END; 
END; 

ELSE  0UTPUK3)  =EMPTY  ; 
ENABLE; 

return; 

END  INTSERV; 


TO  BE  READY 


END 


7)  <> 

ZH-I); 


1  +  1 


END 


DO  FOREVER; 
ENAeLE; 
I0LE=1; 
INCX=13; 
INB=0; 
oute=o; 

NUNB=0; 
OUTPUT(3)=0 
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*/ 


4. $• ); 


•INPUT  WEAPON  ID  NUMBER  AFTER 
•IDMO  HAS  TO  BE  FROM  1  TO  28. 
•IF  YOU  WANT  TO  QUIT 


ii-n 


$•  ) ; 

,TYPE    CONTRCL-C. 


$•  ) ; 


$' ) ; 


1 idno=  $• )  ; 


DO  WHILE  INPUT(7)  <>  INIT;   END; 
/*  WAITS  FOR   PROMPT  SIGNAL  FROM  BAL. 
/*  GO  CN  UNTIL  CONTROL-C  IS  TYPED.  */ 
CALL  CRLF; 
CALL  PRINT  (.'BEGINING  OF  A  RUN:  $•); 

CALL  CRLF; 
CALL  PRINTU'THE  PROGRAM  HAS  A  TABLE  OF  AIRCRAFT.*1); 
CALL  PRINT(.«  POSITIONS  FOR  4  DIFFERENT  RUNSt$«); 
CALL  CRLF; 

CALL  PRINT( .' USING  THE  BOMB  MK82  UNRETARDED* • ) ; 
CALL  PRINT( .»  , IDNO=10.$») ; 
CALL  CRLF; 

CALL  PRINT(  .'ENTER  A  RUN  NUMBER  FROM  1  TO 
CALL  CRLF; 
CALL  CRLF; 

CALL  PRINT(  .'RUr^S1  )  ; 
CALL  READ; 

IF  RDBUFFt ?)=03H  THEN  GO  TO  OH; 
RUfv=CCNV<RD8UFF(2)  )  ; 
CALL  CRLF; 
CALL  CRLF; 
CALL  PRINT! 
CALL  CRLF; 
CALL  PRINT( 
CALL  CRLF; 
CALL  PR  I  NT ( 
CALL  CRLF; 
CALL  CRLF; 
CALL  PRINT* 
CALL  REAC; 

IF  RDBUFF( 2)=03H  THEN  GO  TO  OH; 
IF  RC6UFF( 1)=1  THEN 

CO; 

RCBUFF( 3)=RDBUFF<2  )  ; 
RD6UFF(2)=C; 

END; 
IDNC=10*CONV(RD3UFF(2)  ) +CONV< RDBUFF< 3 )  )  ; 
CALL  CRLF; 
CALL  CRLF; 

CALL  PRINT! «• EXECUTION  WILL  BEGIN  WHEN  CLOCK=0$'); 
CALL  CRLF; 
0UTPUT(3)=INIT;    /*  TELLS  BAL.  THAT  THE  IDNG  WILL 

BE  SENT   */ 
DO  WHILE  INPUT(7)  <>  SENDSIDNO;   END; 
/*   WAITS  FOR  THE  PROMPT   SIGNAL   */ 
0UTPUT(3)=IDN0;   /*  SEND  WEAPON  ID  NUMBER  */ 
RID=(RUN-1)*520; 

DO  WHILE  CLCCK  <>  0;    /*  WAIT  UNTIL  CLOCK  CCUNT=  0  */ 
ENC; 
DO  1=0  TO  3; 

TI=16*l; 

M=13  +  26*I  ; 
DO    J=0    TO    12; 
TABLE(TI  +  J)  =  NAVTAB(NH-J  +  RID)  ; 

/*  SIMULATES  THE  RECEIVING  OF  DATA  FROM  NAV.   */ 
END; 
DISABLE; 

IF  IDLE  THEN  DO; 
IDLE=0; 

DO  WHILE  INPUT(7)  <>  DAT;   END; 
0UTPUT(3)=DAT; 
Tl=TI+i; 
DO  IJ=0  TO  8; 

OG  WHILE  INPUTC7I  <>  IJ+1;   END; 

CUTPUT(3)=TABLE(T  I  +  IJ); 
END; 

END;   /*   IF   */ 
ELSE  CALL  SENDBUFF; 
ENABLE; 
/*  TO  SYNCHRONIZE  EXECUTION  WITH  THE  TABLE  OF  DATA  */ 

J=SHL(  Itl)+l;  ,    ,  ,    rilft 

DO  WHILE  CLOCK  <  <  SHL ( J , 3 ) +SHL ( J  ,  1 )  );   END; 
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DI 
IN 
Cb 
EN 
EN 
DC 
/* 
EN 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
/* 

CA 
/* 

CA 
CA 
/* 
/* 

CA 
I  N 
CA 
CA 
DC 
OU 
IC 
DC 


SABLE; 
CX=IND 
LL  DIS 
ABLE; 
D;  / 
WHILE 
THIS 
D;  /* 
LL  CRL 


EX(CLOCK) 
PLAY( INDX 


*L3+RID; 

); 

TO  3  */ 


SET  BY  INTSERV  */ 


LL 
LL 
LL 
LL 
LL 
LL 
LL 


EN 
CA 
CA 
DO 
CA 
CA 
CA 
CA 
CA 
END; 
EO 


PRI 

CRL 

RE  A 

CRL 

CRL 

FTA 

POL 

EXTR/i 

CURVE 

LL  REL 

CCMPU 

LL  CRL 

LL  PRI 

DISP 

TO  C 

LL  CRL 

DX=IND 

LL  DIS 

LL  CRL 

WHILE 

TPUT( 3 

LE  =  0; 

IJ=0 

CO  WHI 

OUTPUT 

d; 

LL  PRI 

LL  CRL 

WHILE 

LL  PRI 


*   DO  1=0 

NOT  IDLE 

FLAG  IS 

WHILE  */ 
F; 

NT(.« START  TO  COMPUTE  RELEASE  POINTS'); 
F; 
LT; 
F; 
F; 
B; 
IN; 

FOLATE  DO 
S  AND  FIN 
PT; 

TES  AND  DISPLAYS  THE  RELEASE  POINT  */ 
F; 

NT(  .'FROM 
LAYS  DATA 
HECK  THE 

F; 

EX(RPT)*l 
PLAY( INDX 

F; 

INPUT( 7)<>DAT;   END; 
) =DAT; 


IWNRANGE  AND  DIST.  TO  TARGET 
ID  THE  INTERSECTION   */ 


THE  TABLE  OF  DATA:*1 ) ; 

FROM  TABLE  AT  TIME  OF 

RESULT  OF  EXTRAPOLATION 

3+RID; 

) ; 


RELEASE 


*/ 


TO  8; 

LE  INPUTt 

(3) =NAVTA 


7)  <>  IJ*1 ;   END; 
B(  INDX+1+IJ)  ; 


LL 
LL 
LL 
LL 
/* 
F 


NTl.'FOR  THIS  POS I TI ON : $ « ) ; 

F; 

NOT  IDLE 
NT( .' DOWN 
DSPLV( .TABLE 
PRINT(  .'  YAR 
CRLF; 
CRLF; 
FOREVER       */ 


END; 
RANGE  TRAVEL=$* ) ; 
( 77) ,4) ; 
DS$' ) ; 
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/****^*^*^A*********^****^*#**^^*^***^^^^^^^^^^^^5j(*:^ 


*  BALLISTICS'     COMPUTER    PROGRAM 

* 

DECLARE  FOREVER  LITERALLY  'WHILE  1'; 

DECLARE  INIT  LITERALLY  'OCOH'; 

DECLARE  DAT   LITERALLY  'OCOH'; 

DECLARE  SEND$IDNO  LITERALLY 

DECLARE  FROM$BUFFER  LITERALLY 

DECLARE  EMPTY  LITERALLY  «OCCH' 

DECLARE  INTER  LITERALLY  'OBOH' 

DECLARE  ( IDNO, COUNT)  BYTE; 

DECLARE  INDAT(9)  BYTE; 

DECLARE  X<3)     BYTE; 


^■#3£  #  >fr:fc  #:£  : 


* 


OABH' 
CBBH« 


SERV$ONE:     PROCEDURE; 

/*    TO       RECEIVE    WEAPON    ID    NUMBER    */ 

OUTPUTC7) =SEND$IDNO; 

CALL    TIME (3 J ; 

IONC=INPUT(7) ; 

RETURN; 

END    SERV$ONE; 


SERV$TWO:     PROCEDURE 


DO; 

DEC 

DECL 

/* 

ADD: 


AND    DIVE    ANG.    */ 


/*  WILL  RECEIVE  SPEED, ALT ITUDE 

DECLARE  (  I  ,  I  J )  BYTE; 
LOCP:  DO    IJ=0    TO    8; 

OUTPUT* 7) =1 J+l ; 

CALL    TIME (3); 

INDAT(  IJ)=INPUT(7)  ; 

END  ; 
/*    NOW    THE    DOWN    RANGE    TRAVEL    WILL    BE    COMPUTED    */ 

LARE    ZE    BYTE,    ZZ    ADDRESS; 
ARE    YE    BYTE,XF    BYTE; 
FLOATING  POINT  ADD  ROUTINE-/ 
PROCEDURE  (XA,YA,PA); 
DECLARE  (XA,YA,ZA)  ADDRESS, 
PA    ADDRESS,     P    BASED    PA    BYTE, 

(I, R2,Y2, DIGIT, SINE)     BYTE, 
X  BASED  XA  BYTE, 
Y  BASED  YA  BYTE, 
(XX, YQ)     ADDRESS; 

/*    PROCEDURE    TO    LEFT     JUSTIFY    MANTISSA     IN    BINARY    */ 
ADJUST:     PROCEDURE; 
DC    1=0    TO    15; 

IF  (ZZ  AND  8000H)=8000H  THEN  RETURN; 
ZZ  =  SHL(ZZ,  1) ; 
ZE=ZE-1 ; 
END;    RETURN; 
END    ADJUST; 


/* 


XX=SHL(DCUBLE(X) ,8)  OR 
YQ=SHL(DCUBLE (Y ),  8)  OR 
R2=  X(2)     AND    7FH; 

Y2=  Y(2)    AND    7FH; 

DIGIT=R2-Y2; 

SINE    =( X(2)    AND 

IF  (DIGIT  AND 
IF  DIGIT  >=  16 
VARIABLES  NOT  WITHIN 

IF    P2    >    Y2    THEN    DO; 


X(l); 
Y(l)  ; 


80H)  XOR  (Y(2) 
80HJO0     THEN 
THEN  DO 


AND  80H) ; 
DIGIT=-DIGIT; 


SIGNIFICANCE    RANGE    */ 


ZE=X(2) ;     GO   TO    RET 


/* 


ZZ  =  XX 
END; 
ZZ=YQ;     ZE=Y(2) ;     GO    TO    RET 
END; 
IF    Y2    =     R2    THEN 
EXPONENTS     EQUAL 


DO; 
IN  ABSOLUTE 


VALUE 


*/ 
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IF  YQ>XX  THEN  DO; 
/*  Y  >  X  */ 

ZE=  Y(2) ; 
IF  SINE  <  80H  THEN  GO  TO  EXIT1; 
GO  TO  EXIT2; 
END; 
IF  YQ<XX  THEN  DO; 
/*  X  >  Y  */ 

ZE  =X<2)  ; 
IF  SINE  <  80H  THEN  GO  TO  EXIT1; 
GO  TO  EXIT3; 

END; 

/  Vj   y   —   V  ^t  / 

IF  SINE  <  80H  THEN  DO; 
ZE=X(2) ;       GO  TO  EXITl;        END; 
ZZ=0; 

ZE    =  0; 
GO  TO  RET; 
END; 
IF  Y2  >  R2  THEN  DO; 
/*  Y  >  X  */ 

Z  E    =      Y  (  2  )  ; 
XX=SHR(XX, DIGIT); 

IF  SINE  <  80H  THEN  GO  TO  FXITi; 
GO  TO  EXIT2  ; 
END; 
/*  X  >  Y  */ 

Z  E   =      X  (  2  )  ; 
YQ=SHR(YQ, DIGIT) ; 

IF  SINE  <  80H  THEN  GO  TO  EXITl; 
GO  TO  EXIT3; 
EXITl: 

zz=xx*yq; 

IF  CARRY  THEN  00; 
ZZ=SCR(ZZ,1 ) ; 
ZE=ZE   +1; 
END; 

GO  TO  RET; 
EXIT2: 

ZZ=YQ-XX; 
CALL  ADJUST; 
GO  TO  RET; 
EXIT3: 

ZZ=XX-YQ; 
CALL  ADJUST; 
RET:   P=HIGH(ZZ) ; P( 1)=  LOW ( Z Z ) ; P( 2 ) = ZE ; 
RETURN; 
END  ADD; 

SUB:  PROCEDURE  (AD,BD,CD); 
DECLARE  (AD,BC,CD)  ADDRESS, 

A  BASED  AD  BYTE, 

B  BASED  BD  BYTE, 

C  BASED  CD  BYTE; 
DECLARE  BC  (3)  BYTE; 

BC<0)=  B(0) ; 

BC(1)=  B( 1) ; 

BC(2)=  B(2)  XOR  80H; 
CALL  ADD  ( AD, .BCtCD) J 
END  SUB; 

/*  FLOATING  POINT  MULTIPLY  ROUTINE  */ 
MULT:  PPOCEDURE(XA,YA, PA)  ; 
DECLARE    SAVE  BYTE; 
DECLARE  I  BYTE, 
XA  ADDRESS,  X  BASED  XA  BYTE, 
YA  ADDRESS,  Y  BASED  YA  BYTE, 
PA  ADDRESS, P  BASED  PA  BYTE, 
TQ  ADDRESS,  TT  ADDRESS; 
SAVE=X(1 ) ; 

IF  (X=0)  OR  (Y=0)  THEN  DO; 
ZZ=0;  ZE=0;  GO  TO  RET;  END; 
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7  )    OR   X (  1 )  ; 
OR   Y(L) ; 


THEM    DO; 


X(  1)=    SHR(X( 1) , 1 ) ; 

TT    =    SHL(DGUBLE(X) , 
T0=SHL(DOU3LE(Y) ,8) 
ZZ  =  0; 

DC    1=0    TC    15    BY    U 
ZZ  =    SCR(ZZtl)S 
TC=    SCR (T 3,1) ; 
IF    (CARRY)    THEN    00; 

ZZ    =    ZZ+TT; 
END; 
END; 

IF     (ZZ<8000H) 
ZZ  =    SHL(ZZ,1), 
ZE=-l; 
END; 

ELSE    ZE  =  0; 
/*    ADD    EXPONENTS 

ZE=((X(2)     AND    7FH) 
OR    ( (X( 2)     AND    6 OH) 
XCP     (     Y (2)     AND    BOH) ); 
RET:       P=HIGH(ZZ) $ P{ 1 )=    LOW ( Z Z ) ; P( 2 ) =ZE ; 
X(  1)=SAVE; 
RETURN; 
END    MULT; 

/*    ROUTINE    TO    COMPARE    TWO    FLOATING    POINT    VARIABLES    */ 
/*  IF    X<Y    COf'PARE  =  0 

X=Y    COMPARE =1 
X>Y    C0MPARE=2  */ 

COMPARE:     PROCEDURE     (XA,YA)    BYTE; 
DECLARE    X    BASED    XA    BYTE, 
Y    BASED    YA    BYTE, 

(XA,YA,CH5CK1 ,CHECK2)     ADDRESS, 
(XP,YP)     BYTE; 


*/ 


+(Y(2)     AND     7FH)-64    +  ZE) 


/*    EQUAL    EX  PON  EN 

XE=X(2)     AND 

YE=Y(2)     AND 

IF     (     XE=Y 

XP  =  X( 

YP  =  Y( 

CHECK1=S 

CHECK2=S 

IF    ( 

IF 

I 


IF    C 
IF    C 

RETU 
END; 
IF 
RE 
END    CCMPARE; 
DIV:       PRQCEDUR 
CECLARE 
PA    ADDR 


ND; 
F    ( 

IF 

HECK 
HECK 
R^l    1 

(     XE 

TURN 

E  (X 
(XA, 
ESS, 
I  BY 
X  BA 
Y  BA 
(3) 


TS    * 
80H 
80H 
E    ) 
?)     A 
2)     A 
HL(D 
HL(D 
AE=B 
(    X 
F     (X 
IF 
IF 
RET 


/ 


THEN    DO; 

ND    7FH; 

ND    7FH; 

OUBLE(X)  ,8)     OR    X(  1)  ; 

OUBLE(Y) ,8)     OR    Y(l)  ; 

OH    )     THEN    DO; 

P<YP     )     THEN    RETURN    2 

P  >  YP  )  THEN  RETURN 
<  CHECK1  THEN 
>    CHECK  1     THEN 


CHECK2 
CHECK  2 
URN    1  ; 


0; 

RETURN 

RETURN 


XP  <  YP  )  THEN  RETURN  0; 
(  XP  >  YP  )  THEN  RETURN  2 
2  <  CHECK1  THEN  RETURN  2; 
2  >  CHECK1  THEN  RETURN  0; 


=  0 

0; 


)  THEN  RETURN  2 


A,YA, PA) ; 

YA, Z A,B,XX,YO)  ADDRESS, 

P  BASED  PA  BYTE, 

TE, 

SED  XA  BYTE? 

SED  YA  BYTE, 

BYTE; 


XX=SHL( D0U3LE(X) ,8)  OR  X(l) 
YC=SHL( COUBLE(Y) ,8 )  OR  Y(l) 
IF  XX  =0H  THEN  DO; 


145 


ZZ=OH;  ZE=OH;  GO  TO  RET; 
END; 
XX  =  SHR(XXt  1)  ; 
YQ=SHR( YQ,1) ; 
ENTO:  ZZ=0; 

C<2)  =     X(2); 
1  =  1; 

p-y V-Y  0* 

IF  NOT  CARRY  THEN  DO; 

IF    B=0    THEN    DO; 
ZZ=8000H; 
ZE=U(     X<2)     ANO    BOH)     XCR    (Y(2)     AND    30H)) 

OR     UC(2)     AMD    7FH)-(Y(2)     AND    7FHJ+65)); 
GO    TO    RET; 
END; 
GOTO    ENT2; 
END; 
XX  =  SHL( XXt  1  ) ; 

C(2)  =  (C(2)     AND    7FH)    -    1; 

ENT1:     6=XX-YQ; 

IF    CARRY     THEN    DO; 
XX=SHL(XX,1  )  ; 
GGTC    ENT3; 
END; 
/*    NO    CARRY T     ADD    ONE    TO    DIVIDEND    TO    MANTISSA    AND 

SHIFT    LEFT     */ 
ENT2:     XX=SHL(3,1); 
ZZ=ZZ+1 ; 
/*    CARRY     SHIFT     DIVIDEND    MANTISSA    LEFT    */ 
ENT3:     ZZ=SHL(ZZ,1 ) ; 

1=1+1; 

IF  K  16  THEN  GOTO  ENT1 ; 
/*  SET  EXPONENT  */ 

ZE  =  (  (  (     X( 2)  AND  8  OH)  XCR  < 
((C(2)  ANO  7FH)  -  ( 
RET:   P=HIGH(ZZ) ;P( 1 )=  LOW ( ZZ ) ; P < 2 ) =Z£ ; 
RETURN; 
END  DIV; 

SQRT:   PROCEDURE  (XA,PA); 

/*   ASSUME  THAT  XA  IS  A  POSITIVE  PEAL  NUMBER   */ 
CECLARE  XA  ADDRESS,  X  BASED  XA  BYTE; 
DECLARE  PA  ADDRESS,  P  BASED  PA  BYTE; 
DECLARE  (CC1  ,C  2  ,  C3  ,  3  ,  Bl  ,32  )  BYTE; 
/*  INITIAL  APPROXIMATION  FOR  THE  ROOT  IS 
MANT  *  EXP/2   */ 
CECLARE  R  BYTE; 

B2=X(2)-64;  IF  ( B2  AND  80H)  =0  THEN  B 2=SHR( 82 , 1 ) +64 ; 

ELSE  DO;  62=-32;  B2  =  SHR ( B2  , 1 > ; 
B2=64-S2; 
END; 
DO  R=  1  TO  4; 

CALL  OIV(XA, .B,.C) ; 
CALL  ADD( -C, .B, .B)  ; 
B(2)=B(2)-1 ; 
END; 
p=b;  P(1)=B(1);   p(2)=b(2); 

RETURN; 
END    SQRT; 


Y(2)     ANO    80H) )     OR 
Y(2)     AND     7FH)f65)); 


DECLARE 

FUNCTION: 
/* 


CECLARE    (T,T1,T2,Z,Z1,Z2     )BYTE; 

(I0tTEMP,TEMPl,TE,MP2f  EN  TRY  f  ENTRY  1»  ENTRY?)  BYTE; 
CTION:     PROCEDURE ( I, XA) ; 

CDTABLE 

ATMOSPHERE 

COSINE 

ATAN1 


1=0 
1  =  1 
1  =  2 
1  =  3 

1=4    ATAN2  */ 

DECLARE    ETWO    DATA 
(     OH,     OH,     OH,     0C9H. 
OCAH,     3DHf     0C9H,     OEH 
3EH,     OAFH,    OECH,     3EH, 


OEH,    3BH,    0C9H,    OEH,     3CH,    96H, 
,     3DH,     0F8H,     51Ht     3DH,     96H,     OCAH, 
0C9H,     OEH,     3EH,     0E2H,     2FH,     3EH, 
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0F3H,  51H,  3EH, 
5BH,  3FH,  OAFH, 
3FH,  OD5H,  9EH, 
OFBH,  51Ht  3FH, 
82H,  4CH,  96H,  0 
4CH,  OA9H,  OA3H, 
OBCH,  7DH,  40H, 
56H,  4CH,  OD5H, 


4CH, 

OFBH, 

15H, 

93H, 

12H, 

41H, 

41H, 

OBCHt 

OC5H, 


OE8H, 
51H, 
41H, 
OA6H, 
41H, 
0A9H, 
OB3H, 
7DH, 
0E9H, 


73H, 
40H, 

BAH,  3 
41H, 

OAOH, 
OA3H, 
lOHf 
Airif 
41H, 


DECLARE  VTWO  DATA 

(  8  OH,  OH,  41  H,  0 

4EH,  40H,  CFEH, 

4CH,  OFCH,  33H, 

0F8H, 


BAH, 

3ECH, 

3FH, 

83H, 

CAH, 

40H, 
0C2H, 
9EH, 
4  OH, 
3  OH, 
9H, 
96H, 
3  7H, 

41H, 
41  H, 
OBFH, 

0C9H 


4 


39H, 

3FH, 
CE2H, 
OF1H, 
40H, 
OAFH 
OC5H 
40H, 
OEEH, 
OCCH, 
1H,  6 
OCAH, 
41H, 

OACH 

0B6H, 

OA1H 

,     OEH 


3FH, 

ODCH 

2FH, 

40H, 

9DH, 

,     OEC 

,     40H 

OOBH, 

OCOH 

41 H, 

DH,     5 

4lri, 

0A3H, 

OC6 

34H, 

41H 

41H 


96H,  OCAH 
,     7DH,     3F 

3FH,     GEE 

8AH,  39H 
12H,  40H, 
H,  40H,  0 
,     0C9H,     0 

CE7H,  40 
,     40H,     OF 

83H,  0F1 
DH,    41H, 

99H,    OEE 

5BH,  41 H 
H,     41H,     0 

41H,  0B9 
,     0C2H,     0 

) ; 


»   -> 

H, 
H, 
t     4 

OA 
B6H 
EH, 
H, 
5H, 
H, 
90H 
H, 
,  0 
AFH 
H, 
C5H 


FH,  0A3 
OC  9H ,  0 
CCOH,  3 
OH,  90H 
3H,  5BH 
»  34H , 

40H,  0 
0E2H,  2 

09H,  4 
41H,  87 
,  8ZH, 
41H,  90 
A6H,  7F 
,  OECH, 
58H,  41 
t  41H, 


H, 

FH, 
FH, 

40H, 

CFH, 

FH, 

OH, 

H, 

41H, 

H, 

H, 

H, 


FFH,  0 
0C4H, 
4  OH, 
54H,  40H,  0F6H, 
0F3H,  14H,  40H,  0F1H, 
OECH,  83H,  40ri,  OEAH, 
OAAH,  40H,  0E1H.  0C6H 
94H,  4CH,  0D8H,  49H, 

9FH,  4 

,  00  9H 

06H, 

4  OH, 

93H,  6 

9EH, 

3FH, 

,  0B8H 

94H, 
,  63H, 
96H,  4DH,  3 


4EH,  4CH,  OCDH, 
0E5H,  40H,  0C1H 
69H,  4CH,  0B5HT 
40H,  0A7H,  37H, 
98H,  81H,  40H, 
0F7H,  40H,  83H, 
3FH,  0F6H,  38H, 
0C3H,  0F4H,  3FH 
OAOH,  QLOtU  3FH, 
ODBH,  3EHf  OEOH 
1DH,  3EH,  96H, 
3DH,  96H,  0C5H, 
CE9H,  51H,  32H) 
DECLARE  DTWO  DATA 
(  0C9H,  05H,  OBAH 
OAFH,  0B3H,  OBD 
0A2H,  0A8H,  OBE 
OECH,  97H,  OBEH 
9EH,  OBFH,  0A6H 
1AH,  OBFH,  0C9H 
8EH,  OBFH,  OEBH 
0E5H,  OCOH,  86H 


3DH, 


ECH, 

40H, 

OFBH, 

OBAH 

09H, 

OAH, 

,  4  OH 

<+0H, 

OH,  0 

,  4  OH 

4  OH, 

0A2H, 

AH,  4 

40H, 

ODAH, 

,  49H 

0A5H, 

3EH, 

EH,  0 

0C9H, 


40H, 

OFEH 

14H, 

,  4CH 

40H, 

40H, 

,  ODE 

0D4H, 

C9H, 

,  OBD 

OBOH, 

69ri, 

OH,  8 

OFCH, 

OEOH 

,  3FH 

3FH, 

0C7H 

FAH, 

34H, 


OFFH 
,  13 

40H 
t  OF 

OEE 

0E7 
H,  0 

ODB 
CD2H 

h»  o 

87H 

40H 
EH, 

61H 
,  3F 
,  OA 

S8H 
,  0 
OCCH 

36H 


,  OB 
H,  4 
,  OF 
4H, 
Hi  0 
H ,  6 
BEH, 
H,  4 
,  40 
BOH, 
,  40 
,  9D 
3BH, 
,  3F 
H,  0 
CH, 
,  94 
D2rit 
,  3D 
,  OC 


1H,  40H, 

CH,  OFDH 
9H,  0C7H 
OFAH,  40 
C8H,  40H 
CH,  4 OH, 

40H,  OD 
OH,  00 1H 
H,  CC5H, 

40H,  03 
H,  CA6H, 
H,  31H, 

40H,  88 
H  ,  0  F 1 H , 
CFH  ,  8 OH 
82H,  3FH 
H,  3FH, 

3EH,  OA 
H,  CC8H, 
9H,  7FH, 


OFFH, 
,  3AH, 
,  40H, 
H, 

t0E4H, 

BH, 

t 

9H, 

OECH, 
40H, 
H, 

5FH, 
,  3FH, 

0F8H, 
FH, 

008H. 

3BH, 


0D1H,  OCOH, 
0F4H,  OCOH, 
39H,  OCOH, 
8CH,  CCOH, 
OCBH,  OCOH, 


95H 

0A4 

OBZri 

OBFH 

CCB 

0D6ri 


15H,  OCOH, 
2AH,  OCOH,  OEOH, 
OCH, 


H, 


OAFH, 
C9H, 
10H, 
OBDH, 
OCH, 
CF9H, 


DECLARE 


OCOH,  0E8H 

OCOH,  OEFH 

OCOH,  0F5H 

OCOH,  OFAH 

OCOH,  OFO 

OCOH,  OFFH 

OCOH,  OOH 

(E,V,D, 

2D 


96H 

OF 

OB 

32H 

8CH 

066 

0C8 

49H 

OF  4 

OC 

0C6 

0C4 

OB 

93H 

43H, 

036 

0F2 

ODC 

70H 

,  OA 

82H 

OCH 

1  ,D1 


,  0C1H,  0 
1H,  0B8H, 
BH,  6BH, 
,  7BH,  OB 
OBFH,  0 

,  OBFH, 

,  OBFH, 
OCOH,  8 

,  OCOH, 
FH,  OCOH, 
H,  OCOH, 
H,  OCOH, 
9H,  OCOH, 
,  OCOH,  0 

OCOH,  CE 
H,  OCOH, 
H,  OCOH, 
H,  OCOH, 
,  OCOH,  0 
9H,  OCOH, 
,  OCOH,  0 


BCH,  0 

OBDH, 
OBEH, 
FH,  87 
B2H,  6 
0D5H, 
0F6H, 
BH,  98 
9BH,  0 

0A9H, 
0B7H, 
OCBH, 

OCFH, 
09H,  0 
3H,  39 
OEBH, 
0F2H, 
0F7H, 
FBH,  0 

OFEH, 
FFH,  0 


F3H, 

89H 
0D4H 
H,  9 
1H, 
33H  , 
ODOH 
H,  0 
OH, 

91H 
37H, 
00  FH 

77H 
EFH, 
H,  0 
48H, 
10H, 
89H  , 
AAH, 

6EH 
D1H, 


27H, 

,  OCO 

,  11H 

8H,  0 

OBFH, 

OBFH 

,  OE'F 

COH, 

OCOH, 

,  OCO 

OCOH 

,  OCO 

,  OCO 

OCOH 

COH, 

OCOH 

OCOH 

OCOH 

OCOH 

,  OCO 

OCCH 


,  OOH), 

)  (3)  ADDRESS   INITIALC 


03C 
H,  0 

i  0  3 
BFH, 

OBE 
,  OE 
H,  8 
90H, 

9FH 
H,  0 
,  OB 
H,  0 
H,  0 
,  0  0 
OEoH 
,  OF 
,  OF 
,  OF 
,  OF 
H,  0 
i  OF 


H, 

8EH, 

EH, 

9AH, 
H, 
OH, 
OH, 


AEH, 

BH, 

C7H, 

D3H, 

0^t 

DH, 

4H, 

9H, 

CH, 

FFH, 

FH, 


OOOCH,3525H,OCOOH, 
OOOOH, 35DCH» 
I  BYTE, 
LCCK  (3)  BYTE 
MAX  (3)    BYTE 


77H, 
AH, 

DH, 


OOOOH) 


INITIAL  (252,181,192), 
INITIAL  (252,  181,192), 
ENTA  ADDRESS, ENT  BASED  ENTA  BYTE, 
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VALA    ADDRFSS,VAL    BASED    VALA    BYTE, 
DIPFA    ADDRESS, UlFF    3ASED    DIFFA    BYTF, 
VAL1A    ADDRESS,     VAL1     BASED    VAL1A    BYTE, 
(LOCKI ,MAXI )     PYTE, 

DIFF1A     ADDFES6,DIFF1     BASED    DIFF1A    BYTE; 
/*       INPUT       CONSISTS    OF    A    BASED    VARIABLE,        OLTPUT    WILL 
BE    IN    GLOBAL    VARIABLES    T,     Tl,     T2.       AND    Z,    Zl,     Z?, 
FOR    RHO    AND    INVS    RESPECTIVELY  */ 

CECLARE    XA    ADDRESS,    X    BASED    XA    BYTE; 

ENTA=.ETWO;   VALA=.VTWO;   OIFFA=.DTWO; 
VAL1A=V1(I);    DIFF1A=D1( I ) ; 
LCCKI=LOOK( I ) ; 

MAXI=MAX< I) ; 
ENTRY=X;     ENTRY1=X<1);     ENTRY2=X(2); 
IF(LOOKI=MAXI >     THEN    LOQKl=0; 
ID=CCMPARE ( .ENTRY, ENTA+LOOK I ) ; 
IF( ID=1 )    THEN    GOTO    EXIT1 ; 
/*  READ    UPWARDS     IN    THE    TABLE*/ 

IF(  I D>1 )     THEN    DO; 
LOOPl:  IF    (LOCKl=MAXI)    THEN    GO    TO    EXIT1; 

L0OKI=LO0KI+3; 
IC=COMPARc( .ENTRY,ENTAH.OOKI )  ; 

IF (  ID= 1  )     THEN    GO    TO    FXIT1; 
IF(ID>1)     THEN    GO    TO    LOOPl; 
L00KI=L00KI-3;       GO    TO    EXIT2; 
END; 
/*  READ    DOWNWARDS     IN    THE    TABLE  */ 

LGOP2:  IF(LOGKI=0)     THEN    GO    TO    EXIT1; 

L00KI=L00KI-3; 
I 0=COM PA RE ( .ENTRY, ENTA+LOGK I ) ; 

IF( ID=1 )     THEN    GO    TO    EXIT1; 
IF ( ID<1 )     THEN    GOTO    LOCP2; 
GOTO    EXIT?; 

EXIT1:       T  =  VAL(LOOKl  )  ;        T  1  =  VAL(  LOOK  I<-  1 )  ;  T2=  V  AL  (  LOOKH-2  >  ; 
IF    IOl    THEN    GO    TO    RET; 
Z  =  VALl(LOOKI  );        Z1  =  VAL1  (LOOKH-1  )  ;  Z2  =  V AL1 ( LOOK  I +2 )  ; 

GC    TO    RET; 

EXIT2:       T£MP=ENT(LOOKI ) ;       T FMP1=ENT { LOOK  HI  ) ; 
TEMP2=ENT(LOOKI f 2) ; 

/*    CHANGE  THE  SIGN  OF  TEMP     */ 
TEMP2=TEMP2  XOR  80H; 
/*    ENTRY  -  E NT (LOOK)   *7 

CALL  ADD( .TEMP, .ENTRY, .TEMP) ; 

/*   (ENTRY  -  E NT (LOOK))*  D  IFF (LOOK)     */ 
CALL  MULT(.TE.MP,DIFFA  +  LCGKI,  ,T  ); 
CALL  ADD( .T, VALA+LOOKI , .T) ; 

/*   VAL (LOCK) +ENTRY-ENT( LOOK)  *DIFF(LOOK)     */ 
IF  IOl  THEN  GO  TO  RET; 

CALL  MULT( . T EM P, D I FF 1  A  +  LOOK I ,  .Z); 
CALL  ADD(  .Z,VALlA  +  LOOKI, .Z); 
RET:  LOCK(  I  )=LOOKI ; 
RETURN; 
END  FUNCTIUN; 

CGSSIN:  PROCEDURE ( XA ) ; 

/*   THIS  ROUTINE   COMPUTES   BOTH   THE   SINE   AND 
THE   COSINE   FOR   THE   GIVEN   ANGLE   XA   IN 
RADIANS  .   THE   OUTPUT     VALUES   ARE 
STORED   IN   GLOBAL   VARIABLES   Z,Z1,Z2 
FOR       COSINE    T,T1,T2   FCR  SINE   */ 
DECLARE   (TH,TH1 ,TH2 , THN, THN1 , THN2 , TMP , TMP 1 ,TMP 2 ) 
BYTE, 

(MPI2,MPI21,MPI22)     BYTE   INITIAL  ( 0C9H ,  CFH, OC 1 H)  , 
XA   ADDRESS  ,  X  BASED   XA   BYTE; 
TH=X;  TH1=X(1);  TH2=X(2); 
CECLARE  OUT  LABEL; 
DECLARE  I  BYTE; 
CO  1=1  TO  4; 
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tfn=th; 

CALL    AD 

IF(ZE    A 

END; 
RETURN; 
CUT: 

TH2  = 
CALL  FU 
THN=T  ; 
/*  THN=  COS 
CALL  FU 
/*  TH  = 
TH  =  T; 
IF  ( ( 1= 


THN1=THI  ;  THN2=TH2; 
D  (.TH, ,MPI2,.TH) ;/*THFTA  -  PI2  */ 
M  /*  JHN  IS  THBAR  AND  TH  IS  THBAR 
ND  80HJ  <>  C  THEN  GO  TO  OUT; 


-  PI/2   */ 


Z  =  TH; 
T=THN; 
IF  { 1=4 


RETURN; 
END  CCSSIN; 


ZE    A 

NCTI 

TH 

(TH 

NCTI 

CCS 

THi 

1  )OR 

Z  =  TH 

T  =  TH 

IF(  I 

Z 

T 

R 

E 

RETU 

END 

Zl  =  T 

Tl  = 

)     TH 

T 

Z 

E 


ND 
ON 
Nl  = 

) 
ON 

PI 
=  T1 

(  I 
N; 
» 

=  3) 
2=Z 
2=T 
ETU 
ND; 
rn; 


7FH 

(2, 

Ti; 

# 

(2, 
/  Z- 

;    t 

=  3) 

11- 

TL  = 

TH 

2    X 

2    X 

RN; 


.THN)  ; 

THN2=T2; 

.TH)  ; 

TH)  */ 

H2=T2; 

)     THEN    DO; 

THN I     ;Z2=THM2; 

THI     ;       T2=TH2; 

EN    DO; 

OR    80H; 

OR    80H; 


Hi;     Z2=TH2    XOR 

THN1;     T2=THN2 

EN    DO; 

2  =  T2    XOR    80H; 

2=Z2     XOR    80H; 

ND; 


60H; 


/* 

DECL 
DECL 

DECL 
DECL 
DECL 

/* 

DECL 
DECL 
DECL 
DECL 

/* 
DECL 
DECL 
DECL 

/* 

DECL 
DECL 

/* 
DECL 
DECL 

/* 
DECL 
DECL 
SETD 
DECL 


DECLARA 
ARE  (G, 
ARE 


ARE 
ARE 
ARE 


(DS 
TM, 
(IT 
(VK 
(U, 
V,T 
DECLARA 
ARE  IRE 
ARE  (DT 
ARE  (CC 
ARE  (CT 
DECLARA. 
ARE  (CF 
ARE  (SW 
ARE  (Tt 
(3) 
DECLARA 
ARE  (AD 
ARE  (TE 
DECLARA 
ARE  (KI 
ARE  (NU 
CECLARA 
ARE  (CM 
ARE  (IP 
AT :  PRO 
ARE  CON 
I  N I  T  I A 


DECL 

DECL 

DECL 

/* 


ARE  CON 
INITIA 

ARE  CON 
INITIA 

ARE  PI2 
INITIA 

SET    THE 


TION  STATE 
RAD,  Al ,AA, 
2,CFORMl,C 
DM AX)  (3) 
YPE, IBCTH, 
TS,ALT,DEG 
DEL,TEMP1X 
HETA,VXA,V 
TION  STATE 
F  BYTE; 
I,DS)  (3) 
)  (81)  BYT 
)  (18)  BYT 
TIGN  STATE 
, DM,DKG,VX 
ITCHf MSTG, 
MP  J.  A,  TEMP  2 

BYTE; 
TICN    STATE 
,YG,VXO,VY 
MPlBtTEMP2 
TION    STATE 
V  ,  I  I ONO , K  I 
MID)     (40) 
TION    STATE 
,HH,CKDG) 
EG,BASEADD 
CEDURE; 
STANTS1     (2 
L     (080H,0b 
0B6H,0DB 
000H,00 
ST  ANTS?     (6 
L     (000H,00 
ST ANT  S3    (2 
L     (3,1); 

(3)     BYTE 
L     (OCSHtOO 

CONSTANTS 


MENTS    FOR    THE     SETDAT    PROC 

YT,VYK,FRACT)     (3)     BYTE; 

F0RM2,0M1,DM2,DKG1,DKG2, V 

BYTE; 

J, SET)     BYTE; 

)      (60>     BYTE: 

iTEMP2X,TEMP3,TEMP4fTEMP5 

YA)     (3)     BYTE; 

MENTS    FOR    THE    DECODE    PROC 

BYTE; 

E; 


EDURE*/ 
MUZ»VE,SLtFN, 

,TEMP6,TEMP7, 

EDURE-/ 


c ; 

MENTS    FOR    THE 
, VY,TH,Y,YA, 
TABLED     BYTE; 
A,TEMP3A,TEMP4A,TEMP5A,TEMP6A,TEMP7A) 


TRAJ    PROCED 
D,DTV)     (3) 


URE    */ 

BYTE; 


MENTS    FOR    THE    RUNGE    PROCE 

C,RHQ, APlt AP2,AN1,AN2)     (3 

8,TEMP3B,TEMP4B,TEPP5B,TE 

MENTS    FOR    THE    MAIN    PROGRA 

DNO,  IANG,KDEG, IV,KIV,  IY,K 

BYTE; 

MENTS    FOR    THE    DERIV    PROCEDURE    */ 

(3)     BYTE; 

RESS)    BYTE; 


DURE    */ 
)     BYTE; 

MP6B)     (3JBYTE; 
M   */ 

IY)   byte; 


1  )     BYTE 

2 H, 046 H , 08 EH, OF  AH, 03 BH, OB 

H,040H, 

0H,0O0H,OA0H,OC0H,0C3H,O8 

)     BYTE 

0H,OO0H,OAOH,0OOH,043H) ; 

)     BYTE 


3H,033H,040H, 
OH,COCH,040H); 


FH,043H) ; 
TO    THEIR 


SELECTED    VALUES    */ 
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IF 


IF 


(SET=1)  THEN  DO  J=0  TO  2  BY  1; 

G<  J)  =  CCNSTANTSl ( J) ; 

RAC(J)  =  CONSTANTS! (J+3) ; 

A1(JI=  CONSTANTSl  (  J  +  6)  ; 

AM  J)=  CONSTANTSl  {  J  +  9)  ; 

YT(J)=  CONSTANTS!* J+12) ; 

VYMJ)  =  CONSTANTS  KJ+151  ; 

FRACT(J)=  CONSTANTSl  (J+18)  ;  END;  ELSE 
SET  THE  VARIABLES  AS  ASSIGNED  IN  THE  DECODE 


PROCEDURE  */ 


IF 
DECL 


/* 
/* 


(SET=2)  THEN  DO;  DO  J=0  TO  2  BY  1 

CFCFM1(J)=  CCNSTANTS2( J) ; 

CF0RM2(J)=  CONSTANTS2( J) ; 

DM1(J)=  CONSTANTS2 ( J) ; 

DM?( J)=  CONSTANTS2 (J) ; 

DKG1(J)=  CONSTANT S2( J) ; 

DKG2(J)=  CGNSTANTS2( J) ; 

VMUZ< JJ=  CONSTANTS2( J) ; 

VE( J)=  CCNSTANTS2( J) J 

SL( J)  =  CCNSTANTS2 ( J) ; 

FN( J)=  CCNSTANTS2< J) ; 

TM( J)=  CONSTANTS? ( J) ; 

DM£X(J)=  CCNSTANTS2U  +  3)  ;  END; 

ITYPE=  CONSTANTS3(0) ; 

IBCTH=  CCNSTANTS3 ( 1) ;  END;  ELSE 
(SET=3)  THEN  DO; 
*RE  CONVERT  (3)  BYTE 

INITIAL  (0D3H,009H,D41H) ; 
CONVERT  KNOTS  TO  FEET  PER  SECOND   U=VKTS( I V) *  1.6878  */ 

CALL  MULT(  .CONVER T  ,  . VKT S , . U )  ; 
APPROXIMATE  THE  ARCTAN  FUNCTION  */ 

CALL  DIV(  .VEt .U, .DEL) ; 
CETERMINE  THE  VELOCITY   V=U+l/2*< VE**2) /U 


CALL 
CALL 
CALL 
CALL 


!RT(U**2+VE**2) 
, .TEMP1X); 

U,.TEMP2X)  ; 
, .FRACT, . TEMP3) ; 

u  t .  v ) ; 

THETA=  DEG( IANG) 


^RAO 


*/ 


IT  TO 

DO; 


2PI  */ 


END 
DECG 
DECL 
/* 

DEC 

IN 


APPRGX  TO 

MULT(  ,VE,.VE 

DIV<  .TEMP1X, 

MULT(  .  TEMP2X 

ADC(  .TEMP3, 

CALCULATE  THE  DIVE  ANGLE 

CALL  MULT(  . RAD , . DE G  ,  . THET A)  , 
IF  THE  DIVE  ANGLE  IS  NEGATIVE,  ADD 
IF  (THETA(Z)  AMD  80H)  <>  0  THEN 
CALL  ADDl .THETA, .PI2,.THETA) ; 
END; 
CALCULATE  THE  VELOCITY  IN  BOTH  THE  X  AND  Y  DIRECTIONS  */ 
VXA=  IV+VMUZ)*  COS* THETA-DEL)  */ 
VYA=  <V*VNUZ)*  SIN(  THETA-DEL)  */ 
CALL  SUB( .THETA, .DEL,. TEMP4) ; 
CALL  COSSIN( .TEMP4)  ; 
TEMP5  =  Z;  TEMP5( 1  )  =  Z1;  TEMP5(2)=Z2; 
TEMP7=T;  TEMP7(1)=  Tl ;  TEMP7(2)=T2; 
CALL  ADD( .Vt.VMUZf .TEMP6); 
CALL  MULT( .TEMP6, .TE*P5,.VXA) 
CALL  MULT( .TEMP6,. TEPP7, .VYA) 
SETCAT; 

Cc:     PROCECURE; 

ARE  (START, ONE, TWO, THREE, FOUR) 
DECLARE  THE  STARTING  POSITION 


END;  RETURN; 


LABEL 

OF  THE 


VARIOUS 


/* 

DECL 

IN 

/* 

DECL 

IN 


WEAPON  COEFFICIENTS  */ 
LARE  IDVEC  (28)  ADDRESS 

ITIAL (0,13, 26, 39, 52, 65, 78, 91 ,104, 11 7, 130, 143, 156, 169, 
182,  195,208,221, 

25 4, 287, 320, 3 53, 386, 419, 45 2, 485, 513, 551); 
DECLARE  ThE  MUZZLE  VELOCITY  AND  THRUST  VECTOR  */ 
ARE  VMFN  (6)  BYTE 

IT  I AL(0CEH,040H,04CH,0DAH,040H,04BH) ; 
DECLARE  THE  CC  MATRIX  OF  DRAG  COEFFICIENTS  */ 
ARE  CCVALUE  (81 )  BYTE 
ITIAL(0CEH,02AH,03  7H ,00 OH, OOOH , 00 OH ,000H, 0 OOH ,000H , OSFH, 

0A0H,0  3CH, 

OEOH,0  30H,03DH,03  8H,O4AH,O3DH,OEEH,O58H,0BDH,ODEH, 

0DEF,03EH, 

OC8H,007H,08DH,OE2H,03EH,042H,OD6H,0  42H,OC2H,OB7H, 


150 


CD9F,042H, 

OB4H,02FH,044H,OD8H,054H,OC5H,OADH,ODSH,045H,08EH, 
0  5  5h,0C5H, 

0B1H,0  38H,G4  6H,0E7H,0FCH,0C4H,0D5H,0  3AH,0  3DH,0EBH, 
0E0H,0BEH, 

OABH,OAAH,03EH,OC6H,OB1H,OBEH,OCDH,0  8EH,0  3FH,OA3H, 
090H,03EH, 

096H, 0  28H,O3DH,OA6H,O3  5H,OBBH,OA0H,0  5AH,03  8H) ; 
/*    DECLARE    THE    MACH    CUT    MATRIX    CT    */ 
DECLARE    CTVALUE     (18)     BYTE 

INITIAL(OD5H,0  81H,040H,OFAH,01CH,040H,09FH,0  3BH,040H,0C2H, 

08Fh,040H, 

084H,018H,041H,0A6H,066H,041H); 
/*    DECLARE    THE    WPNCODE    MATRIX    CONTAINING    THF    VARIABLE     FOR 

EACH    WEAPON    */ 
DECLARE    WPNCOCE     (585)     BYTE 
/*    WEAFCN    CONSTANTS    FOR    THE    MK    43    UNRETARDED    */ 
INITIAL(4,0O0H,00  0H,000H,0A7H,O2  7H,033H,0A0H,00  0H,04  3H, 

OCOH,OCOH,0+2H, 
/*    kEAPCN    CONSTANTS    FOR    THE    MK    57    UNRETARDED    */ 

4, OOOH, OOOH, 0 0 OH, OC EH, 06 BH, 039H, OAOH, 00 OH, 04 3H, 

0C0Ht000H,042Hf 
/*    WEAPCN    CONSTANTS    FOR     THE    MK    61    UNRETARDED     */ 

4,0OOH,0  0  0H, 0 C OH, 08 3H, 0 66 H,0  39H, OAOH, 00  OH, 04 3H, 

0CCH,000H,042H, 
/*  WEAPCN  CONSTANTS  FOP  THE  MK  116  WETEYF  */ 

2,0  80H,0  90H, 0  39H , 034H , 0  7CH , 0  38H , OC OH , OOCH , 042H , 

08Cht OOOH, D42H, 
/*  WEAFCN  CONSTANTS  FOR  THE  MK  76  WITH  LUG  */ 

2,08  0H,0  0CH,039H,0D0H,0  90H,039H,0C0H,00CH,042H, 

OCCH,00OH,O4-2H, 
/*  WEAFCN  CONSTANTS  FOR  THE  MK  77  FIREBOMB  */ 

4,OO0H,0OOH,OCOH,OAEH,0  36H,O3BH,C3OH,0O0H,O4  2H, 

080H,000Ht041H, 
/*  WEAPCN  CONSTANTS  FOR  THF  MK  8  1  */ 

l,0A4H,081H,042H,CO0H,GODH,0OGH,0A0H,O00H,04  3H, 

0CCH,000H,042H, 
/*    WEAPCN    CONSTANTS    FOR    THE    MK    81    SNAKEYE    UNRETARDED    */ 

4,0  00H,0OCH,0COH,OA0H,0C5H,0  3AH,OC0H,COCH,O42H, 

08CH, 000H,042H, 
/*    WEAPCN    CONSTANTS    FOR    THE    MK    82    MECH    FUZE    */ 

1, 0 8 4H, 0 1 8H, 042H, OOOH, OOOH, 00 OH, OAOH, 00 OH, 04 3H, 

0C0H,0O0H,O42H, 
/*    WEAPCN    CONSTANTS    FOR    THE    MK    82    ELECT    FUZE     */ 

l,0BFH,O21H,O4  1H,OO0H,0OOH,OCOH,OA0H,0O0H,O43H, 

OC0H,O00H,04  2H, 
/*    WEAFCN    CCNSTANTS    FOR    THE    MK    33    MECH    FUZE    */ 

1 ,OA8H,0EAH,O41H,O0OH,0O0H,O0OH,OA0H,O0  0H,O4  3H, 

OCOH,OOOHt 042H, 
/*  WEAPCN  CONSTANTS  FOP.  THE  MK  83  ELEC  FUZE  */ 

1 ,09AH,0E1H, 04 1H, OOOH, COOH, OOOH, OAOH, OOCH, 04 3H, 

0C0Ht000H,042Hi 
/*  WEAPON  CONSTANTS  FOR  THE  MK  84  */ 

1,08  OH, OOOH, 041 H, OOOH, OOOH, OOOH, OAOH, 0  0 OH, 04 3H, 

0COH,000H,042H, 
/*  WEAFCN  CONSTANTS  FOR  THE  MK  117  AL  */ 

1,OC7H,OAEH,042H,OAOH,04DH,08  7H,OAOH,OOOH,043H, 

0CCH,00GH,042H, 
/*    WEAFCN    CONSTANTS    FOR    THE    MK    86    WET    SAND    FILLED    */ 

1, 0 DFH,0D2H,0  42H, OOOH, OOOH, OOOH, OC OH, OOCH, 04 2H, 

C8CH,000H,042H , 
/*    WEAPCN    CONSTANTS    FOR     THE    MK    88    WET    SAND    FILLED    */ 

1, 0CDH,0  70H, 04 1H, OOOH, OOOH, OOOH, OAOH, OOOH, 043H, 

OCCH, 000H,042H, 
/*    WEAPON    CONSTANTS    FOR    THE    MK    82    SNAKEYE    UNRETARDED    */ 

4, OOOH, 0  0 OH, 000H,OF0H,0  2  8H,O39H,OC0H,OO0H,04  2H, 

08CH,000H,041H, 
/*    WEAPCN    CONSTANTS    FOR    THE    MK    82    SNAKEYE    RETARDED    */ 

1, COOH,  00 OH, 00OHt0F0H»O28Hf 0  39H, OOOH, OOOH t OOOH t 

piupLj    on  oh    i  ^  ?  H 
1,2,Oo6h,OOGH,5o6h,OoAH,06  7H,03BH,OC2H,08FH,03FH, 

0AFH,0C7H,03EH, 
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OA9H,065H,040H,080H,008H,0B5H, 
/*    WEAFCN    CONSTANTS    FOR    THE    SADEYE    Tl=    4^0    */ 

A£924^?.3^'?^2H'O00H'OOOH»OO0H'oo°HtO0  0H,OOOH, 
UL  OH,  OQOh,  G'H-IH  , 

lt2,OCOH,,0  0CH,OO0H,OE3H,OO5H,0  3EH,O0OH,OO0H,OO0H, 

0 8 6H J G 33 H,043H, OOOH, 00 OH, OOOH, 
/*    WEAPCN    CONSTANTS    FOR    THE    ROCKEYF     II     Tl=    4.0    */ 

1 ,0  93H,006H, 04  2H,085H,OFOH,0  3AH,O00H,0OCH,O0OH, 
08CH, 000H,042H, 
1, 2,OA3H,0D7H, 0  3FH , 0B6H , 073H , 03AH,OD1H , OE 3H ,03FH , 
OACH,0E7H,03EH, 

081H,0FBH, 0  43H, OOOH, OOOH, OOOH, 
/*    WEAFCN    CONSTANTS    FOR    THE    CBU    Tl=    4.0    */ 

1, 08FH, C62H, 0 4?H , OOOH , OOOH , OOOH , OOOH , 00 OH f 000 Hf 
GCFH,05CH,041H, 

l,2f OCOH,O0GH,0OOH,OFlH,O41H,O3DH,OOOH,O0CH,OOOH, 
OOCH, OOOH, OOOH, 

080H,OQOH, 043H, OOOH , OOOH , OOOH, 
/*    WEAPCN    CONSTANTS    FOR    THE    MK    81    SNAKEYE    RETARCED    */ 

It OOOH, OOOH, 000H,0A0H,005H, 03 AH, OOOH, OOOH, OOOH, 
0CFH,09DH,Q41H, 
1,2, 00 OH, OOOH, 00CH,0BCH,0EDH,03BH,0C2H,03FH,03FH, 
0EEH,075H, 03EH, 

0ADHt002H,040H,09EHt00BH,0B5H, 
/*    WEAFCN    CONSTANTS    FOR    THE    20    MM    GUN    */ 

3,OBFH,0C5H, 042H, 0F5H , OA 1H , OB AH, OCOH ,00CH ,04] H , 
08CH,OOOH,040H, 
3, 1, OOOH, OOOH, OOOH, 0 OOH, OOOH, OOOH, 000 H,00CH, OOOH, 
OOOH, OOOH, OOOH , 

OOOH,0  30H, OOOH, OOCH, OOCH ,000H, 
/*    WEAFCN    CONSTANTS    FOR    THE    5     INCH    ROCKETS    */ 

3, 0C1H,)EBH,040H, OOOH, OOOH, OOOH, OOOH, OOCH, OOOH, 
08CH,0C0H,041H, 
2,1, OOOH, OOOH, 0 OOH, 08 OH, OOOH, 04 1H, OOOH ,00CH,00  0H, 
OOOH, OOOH, OOOH, 

0B6H,014H,041H, CO OH , 0 OOH , OOOH, 
/*    WEAPCN    CONSTANTS    POR    THE    MK    43    RETARDED    0.4    SEC    DELAY    */ 
4, 00 OH, OOOH, OOOH, OOOH, 00 OH, OOOH, 000 H,COCH, OOOH, 
O9EH,0B8H,03FH, 
0, 1 ,0 OOH, 00 OH, OOOH, OOOH, OOOH, OOOH, OOOH, 00  OH, OOOH, 
0BDHf070Ht041Hj 

0FAH,0E1H,040H, OOOH, OOOH , OOOH, 
/*    WEAPCN    CONSTANTS    FOR    THE    MK    57    RETARDED    0.8    SEC    DFLAY    */ 
4, CO OH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, 00  OH, OOOH, 
0E1H,047H,03EH, 
0, 1,0 OOH, OOOH, OOOH, OOOH, C OOH, OOOH, OOOH, OOOH, OOOH, 
08CH, OOOH, 042H, 

0E3H,0D7H,040H, OOOH, OOOH, OOOH, 
/*    WEAPCN    CONSTANTS    FOR    THE    MK    61     RETARDED    0.6    S FC    DELAY    */ 
4, 00 OH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH, 00 OH, 
0CCh,0CCH,03DH, 
0,1, 0  0 OH, OOOH, 00 OH, OOOH, OOOH, OOOH, OOOH, 00  OH, OOOH, 
0ACH,0CCH,042H, 

0E3H,0D7H, 040H, OOOH, OOOH , OOOH, 
/*    WEAFCN    CONSTANTS    FOR    THE    MK    106    MOD    2    */ 

2, 0 9BH, 0 06H, 0  3EH, OOOH, OOOH, OOOH, OOOH, 00 CH, OOOH, 
0CCH,0CCH,040H, 
2,1, OOOH, OOOH, OO0H,O9  5H,OO8H,O3EH,O00H,C0  0H,OO0H, 
COOH, OOOH, OOOH, 

080H, OOOH, 04 OH, OOOH, OOOH, OOOH) ; 
/*    ASSIGN    THE    REFERENCE    VALUE    FROM    THE    WPNCODE    */ 

IREF  =    WPNCODE( IDVEC( IDNO-1 )) ; 
/*    ASSIGN    THE    VARIABLES    THFIR    RESPECTIVE    VALUES     FROM    THE 

WPNCODE    */ 
DC    J=C    TO    2    BY    l; 
CFCRM1 ( J) =    WPNCODE( IDVEC{ IDNO-1) +  1  +  J) ; 
CKGK Jl=    WPNCODE ( IDVEC( IDNO- 1 ) +4+ J ) ; 
OAX(  J)=    WPNCODE  (  IDVEC1  IDNO-1)  +7*- J)  ; 
DTK  J)=    W  PNC  ODE  (  IOVECI  I  DNO-  1 )  *■  I  0+J  > ; 
ENC; 
/*    DECIDE     IF    SINGLE    DRAG    WEAPON    AND    THEN    BRANCH 
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IF  (IDNC  <=  17 
/*  ASSIGN  THE 

ITYPE=  W 

I BOTH=  W 

DC  J=0  TC 

DM1(J)= 

CFGRM2C J 

D  iv  2  (  J  )  = 

DKG2C J)= 

DS(  J)  =  Vi 

S  L  (  J )  =  W 

ENC;  END; 

/*  IF  ICNC=23 

IF  ( IDNC  =  23 ) 

/*  IF  THE 
IF  ( IDNC  = 
/*  eRANCH 
START 


ONE: 
TWO: 

THREE 

FOUR 

END 

INPU 


DO 
DO 
GO 
DO 
DO 
GO 


IF  ( 
IF  ( 
IF  ( 
IF  < 

J=0 
J  =  0 

TO 


ION 
24) 
TO 
IRF 
IRE 
IRt 
IRE 
TC 
TC 
FOU 


ACC 
)  TH 

SEC 

STA 
PNCO 
PNCO 

2  B 
WPNC 
)=  W 
WPNC 

W  PN 

PNCO 
PNCO 

ASS 

THE 
0=24 

THE 
THE 
F  = 
F  = 
F  = 
F  = 

53 

LI 

R; 

26 

5  B 

r; 

TO  2 
TO  5 


ORDINGLY   */ 

EN  GO  TO  START;  ELSE  DO; 

OND  PORTION  OF  THE  VARIABLES 

GE  WEAPONS  */ 

DE(  IDVEC(  IDNO-D  +  13)  ; 

DE(  IDVEC(  IDN0-U  +  L4)  ; 

Y  l; 

OGE(  IDVECC  IDNC-1)+15*J)  ; 

PNCO  Of:  (  IDVEC(  I  DNO- 1  I  +  1  S «- J  1  ; 

ODEC  IDVECC I DNO-1  )+21+J)  ; 

CGDEC  IDVEC(  IDN0-D+24+J)  ; 

DEU  DVEC(  IDN3-1  )+27+J)  ; 

DEC  IDVEC(  I DNO-1  )+3  0+J) ; 


IGN  THE  MUZZLE  VELOCITY 


FOR  DUAL 


N  DO  J=0  TO 

ASSIGN  THE 

N  DO  J=0  TO 

APPROPRIATE 

1 )  THEN  GO  TO 

2)  THEN  GO  TO 

3)  THEN  GO  TO 

4)  THEN  GO  TO 
BY  1 
BY  1 


2  BY  1; 
THRUST 
2  BY  1; 
SECTION 

ONE; 

two; 

THREE; 

FOUR  ; 
CCC J)=  CCVALUEC J); 
CT( J)=  CTVALUEC J) ; 


TO  VMUZ  */ 
VMUZ(Jj=  VMFNCJ) 
TC  FN  */ 
FNCJ)=  VMFNCJ+3) 
OF  THE  CC  MATRIX 


END; 

END; 
*/ 


END; 
END; 


END 
DERI 
DECL 
DECL 

DECL 

/* 


/* 


/* 
IF 

EIGH 

NINE 
/* 


J  =  0  TC 
J  =  C  TC 

TO  FOU 
CC  J^O 
CO  J  =  0 
:  RETURN; 
CECCCE; 
T:  FROCEDU 

DECLARE  J 

DC  J=0  TC 

VKTSC  J  »  =  I 

DEGC J) =IN 

A  L  T  (  J  )  =  I  N 

END; 
INPUT; 

V:  PROCEDURE; 
ARE  (TEMP1CTE 
ARE  CONST ANTS6 

INITIAL  (OEAH 
ARE  (EIGFT,NIN 

COMPUTE  THE  VF 

CALL  MULTC .VX 

CALL  MULTC . VY 

CALL  ADDC.TEM 

CALL  SQRT(.TE 

COMPUTE  THE  MA 

CM=V* 

DO  J=0  TO  2  3 

TEMP1C(J)=  C 

TEMP2CC J)=  C 

end; 

CALL  MULT 

CALL  ADC( 

CALL  MULT 

CALL  ADC( 
DETERMINE 

APPL  I 
(2  =  COMPA 

IREG=0;  G 
T:   IF  <2 

IRFG=  9; 
IREG=  1 


BY  1;  CC(J)=  CCVALUEC J+27J;  END; 
Y  1;  CT(J)=  CTVALUEC J+o);  END; 

6  BY  L;  CCCJ)=  CCVALUECJ+54) ;  END 
BY  1;  CT(J)=  CTVALUECJ+12) ;  ENC; 


RE; 

BYTE; 

2; 
NDATC J) ; 
DATC3+J)  ; 
0ATC6  +  J)  ; 


MP2C 
C6) 

,ObS 
E,TE 

LOCI 
,  .VX 
,.VY 
PIC, 
MP3C 
CH  0 
C8.9 
Y  l; 
ONST 
ONST 


,TEMP3CtTEMP4Ct TEMP5C)     C3)     BYTE; 

BYTi 
H,03< 
N)     Lt 

V  =  St 
TY  Oi 
,.TEI 
,.TEI 
.TEMi 

,.V) 
F    TH! 

55E-i 


!6H,0E0Hv006H,024H); 
.ABEL; 

;qrtcvx*vx*vy*vy)   */ 

if   the  weapon 
MP1C) ; 
MP2C) ; 
'P2C,  . TEMP3C)  ; 


IE    WEAPON 
•04+3.26E-09*Y)*DM    */ 


ANTS6C J) ; 
ANTS6C  J+-3)  ; 


GO 
8; 
DO  THE  INTER 
F* 
(  I 


CKDG=D.<G  +  CI 
CC 


C .Y, .TEMP2C, .TEMP3C ) ; 

.TEMP3C, .TEMP1CTEMP4C) ; 

( .V, .TEMP*Ct.TEMP5C) ; 

.TEMP5C , .DM,. CM) ;  „ 

THE  REGION  OF  THE  DRAG  CURVE  WHICH  IS 

CABLE  */ 

REC  ,CM,.CTCMSTG)) )  THEM  GO  TO  EIGHT; 

2  COMPARE ( .CM,.CT(MSTG  +  3)  ))  THEN  GO  TO  NINE 
TO  ten; 

MEDIATE  BALLISTIC  CALCULATIONS  */ 
(CCC IREG,1,MSTG>+(CC(IPEG,2,MSTG)+ 
REG,T,MSTG)*CM)*CM)  */ 
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TEN:   BASEADCR 


/* 


/* 


RETU 

RUNG 

DECL 

IN 


MULT 
ADC< 
MULT 
ADC( 
MULT 
AOC( 


/* 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 
HH=    TH/V-R 

CALL    MULT 

CALL    MULT 

CALL    DIV< 

CALL  SUR( 
AN2  =  HH~VX 

CALL  MULT 
AP2=  HH*VY 

CALL  MULT 

CALL  SUB( 
RN;  END  CE 
E:  PRGCEDU 
ARE  CCNSTA 
ITIAU09BH 
CALCULATE 

CALL  MULT 
ASSIGN    THE 

DC    J=0    TO 
YC(J)=    Y 
VXC( J)= 
VYC( J)= 

ENC; 
CALCULATE 
RHO=2 

DC  J=G  TC 
TEMP1B( J 
TEMP2B(  J 
TEMP3BC J 

END; 


ES 
(  . 
.T 
(  . 
.T 
(  . 
•  T 
HO 
(  . 
(  . 
.T 
.T 

(  . 
-G 
C  . 
.7 

RI 
RE 
NT 
tO 
TH 
(  . 
V 
2 
(J 

vx 

VY 


S=    TA 

CM,  .C 
EM  PIC 

CM  ,  •  T 
EMP3C 
CF,.T 
EMP5C 
*CKDG 
V,  .CK 
TEMPI 
H,  .V, 
EMP3C 
*/ 
HH, 
*/ 
HH  ,  .  V 
EMP4C 

v; 
S5    (q 

B2H»0 
E    AD 
Al,  .0 
AR  I  AS 
BY    1 

); 

( J) ; 
(J)  ; 


BLEl+IREG; 

C<  8ASEA0DRESS+6 ) , .TEMP1C)  ; 

, .CC(B AS EA DURESS +3),. TEMP 2C) ; 

EMP2C.TEMP3C)  5 

, .CC(BASEADDRESS)  ,.TEMP4C) ; 

EMP4C, .TEMP5C); 

T  .CKG,  .CKDG)  ; 

*V       */ 

DGT .TEMP1C) ; 

C, .  RHO, .TEMP2C) ; 

. TEMP3C) ; 

t  .TEMP2C.HH)  ; 

VX, .AN2J ; 


Y,.TEMP4C) ; 
, .G,  .AP2) ; 


)     BYTE 

3  3H,093H,0A6H,02  9H,03DH,0  0BH,0!8H) ; 

VALUE  AD=    A*D  */ 

, .AD) ; 

LES  THEIR  INITIAL  VALUES      */ 


THE 
.37E 
2    B 


/* 

CALL 
/* 


CALL 
CALL 
CALL 
CALL 
MAKE 


MULT 
SUB( 
MULT 
SU3( 
rHE    F 


AIR    DENSITY 

-03-Y*(6.87E-08-Y*6.71E-13)     */ 

Y    1  * 

ONST ANTS5( J); 

fJNSTANTS5(  J  +  3)  ; 

0NSTANTS51 J*6) ; 

( .Y, .TEMP3B,.TEMP4B) ; 

. TEMP28 ,  . T  EMP4 B  , . T  E MP5  B )  ; 

(  .Y, .TEMP5B, .TEMP6B) ; 

.TEMPI  8, .TEMP6B,  .RHOI ; 

IRST    CALL    TO    THE    DEPIV     PROCEDURE    */ 


)  = 
)  = 
)  = 


DERIV; 
UPCATE    THE 
Y=    YC+AD-V 
CALL    MULT 
CALL    ADC( 
DC    J=0    TO 
APK  J)  = 
AMI  JJ  = 
ENC; 
VX=    VXO+-AD 
CALL    MULT 
CALL    ADD( 
VY=    VYC+AD 
CALL    MULT 
CALL    ADO( 
CALCULATE 
RHQ=2 
DO    J=0    TO 
TEMP1B( J 
TEMP2B( J 
TE^P3Bt  J 
END; 


POSITIONS    AND    THE    VELOCITIES 
Y    */ 
(  .AD 
.  TEM 

2    B1 
AP2( 
AN2( 


*/ 


t .VY ,. TEMP  IB)  ; 
iPIB,  .YC,.Y)  ; 
»Y    l; 

J) ; 

J); 


*AN1 
(  .AN 
•  VXD 
*APl 
CAP 
.VYO 
THE 
.37E 
2  B 
)=  C 
)=  C 
)=    C 


*/ 

1,.A 

,.TE 
*/ 

1,.  A 
,.TE 
AIR 
-0  3- 

Y    l; 

ONST 
ONST 
ONST 


D, .TEMP1B) ; 
MP  18, .VX)  ; 

D, .TEMP2B) ; 
MP2B,.VY)  ; 
DENSITY 
Y*(6.87E-08-Y*6 

ANTS5( J) ; 
ANTS5( J+3) ; 
ANTS  5 ( J+6) ; 


71E-13)  */ 


CALL 


CALL 
CALL 
CALL 
CALL 

MAKE 


MULT 
SUB( 
MULT 
SUB< 
THE  S 


( .Y, .TEMP3B, .TEMP4P) ; 

.TEMP2Bt .TEMP4B, .TEMP5B) ; 

( .Y, .TEMP5B, .TEMP6B) ; 

.TEMP1B, .TEMP6B, .RHO) ; 

ECCiND    CALL    TO    THE    DERIV    PROCEDURE 


*/ 


DEPIV; 
COMPUTE  THE  TIME,  POSITION  AND  VELOCITIES 
T=  T+D   */ 

CALL  ADD(  .TM,  .D, . TM  )  ; 


*/ 


/* 


/* 


/* 


X=    X  +  D*( VXO+AA*( VX-VXO) )       */ 
CALL    SUB( .VX, .VXO, .TEMP23) ; 

MULT(  .AAT . TEMP2B*  .TEMP3R) 
AD'J{  .VXOt  .TEMP36,  .7EMP4B) 
MULT(  .TEMP43, . Dt .TEMP5B J  ; 
ADD(  .X,  .TEMP5B,.X)  ; 
Y  =    YC  +  DK VYO  +  AAK VY-VYO) )       */ 
CALL    SU3< .VY, .VYU, .TEMP2B) ; 

MULT( .AA,.TEMP2B, .TEMP3  8) 
VYO, .TEMP33, . TEMP4B) 
.TEMPOS, .D,  .TEMP5B); 
YO, .TEMP5B, .Y) ; 
AN1*-AA*(  AN2-AN1)  )        *, 
AN2  , .AMI , .TEMP2B) ; 
.TEMP2B, .AA, .TEMP3B) 
TEMP33,  .AMI,  .TEMP4  8) 
.  D, .TEMP43, . TEMP5B) ; 
VXO, .TEMP 5B, .VX) 


CALL 
CALL 
CALL 

CALL 


CALL 
CALL  ADD< . 
CALL  HULK 
C  £LL  ADC( . 
VX=  VXO  +  DK 
CALL    SUB(. 


CALL 
CALL 
CALL 
CALL 


MULK 
ADC(  . 
MULK 
ADD( 


/*     VY  =    VYC+0*< API tAA*( AP2-AP1) )        */ 
CALL    SUB( . AP2,.AP1, .TEMP2B) ; 
CALL    MULK  .TEMP28, .AA, .TEMP3B)  ; 
CALL    ADD( . API , .TEMP3B, .TEMP4  3) ; 
CALL    MULK  .  D  ,  .  TE '•!  P4  B,  .TEMP5B  )  ; 
CALL    ADC( . VYO, .TEMP53, .VY) ; 


RETU 

END 

TRAJ 

DECL 

DECL 

/* 


/* 

IF 


/* 

FIV 
/* 

SI 
/* 


PUNGE; 

:    PPCCEDURE; 

ARE    (FIVE, SIX, SEVEN)     LABEL; 

ARE    CONST  ANT S4    (4i     BYTE 

INITIAL     (OOCH,OOOH,OOOH,0 ) ; 
INITIALIZE     THE    VARIABLES    FOR 

MSTC-=    CONSTANTS4(3)  ; 

TABLE1=    CONST ANTS4(3J ; 

DC    J=0    TC    2    BY    l; 

CF(  J)  =    CFORM1 ( J) ; 

DM  J)  =    DM1  (  J)  ; 

DKG(J)=    DKGKJ); 

VX  (  J)=    VXA( J)  ; 

VY( J)=    VYA( J) ; 

T  H  (  J )  =    F  N  (  J  ) ; 

Y(  J)  =    ALT( J); 

YA( J)=    Y( J) ; 

X(  J)=    CONSTANTSA  J)  ; 

T f M  J  )  =    CCNSTANTS4U)  ; 

END; 
DETERMINE  THE  TYPE  OF  DRAG  */ 
<ITYPE=3)  THEN  GO  TO  FIVE; 
CALCULATE  THE  STEP  SIZE   D=DS+SL*U 

CALL    MULT(  .  SL , .U, .TEMPI  A) ; 

CALL    ADC(  .TEMP1A,  ,DS,.D)  ; 
GO    TO    SIX; 

IZE  TO  THE 
BY  1;  D( J 
PROCEDURE 


THE    TRAJECTORY    PROCEDURE 


*/ 


MAX     ALLOWED       D=    DMAX 
) =    DMAX( J) ;     END; 
FOR    THE     INTEGRATION    */ 


SET  TFE  STEP  S 
E:  DO  J=0  TC  2 
CALL  THE  RUMGE 
X:  CALL  RUMGE; 
CALCULATE  THE  DTV 
2.*G*Y) )    */ 

CALL    MULK  .G,  .Y,.TEMP2A)  ; 

TEMP3A=    TEMP2A;     TEMP3A(1)=    TEMP2AU) 

TEMP3A{2)=TEMP2A( 2 )+l 


VALUE       DTV=     1/G*(VY+SQRT(VY**2+ 


MULT( 
ADD<  . 
SQRK 
ADC(  . 
DIV(  . 
0    TC 


. TEMP4A) ; 
TEMP3A,.TEMP5A) ; 
, .TEMP6A) ; 
VY,.TEMP7A5 ; 
G,.DTV) ; 

D(  J)  =    DTK  J)  J    END; 
IF     (IDNC    <=     17)     THEM    GO    TO    SEVEN; 
IF     (IDNC    =    23)     THEN    GQ    TO    SEVEN; 
/*     SET    THE    SECOND    STAGE    DRAG    PARAMETERS    */ 
MSTG=6;     TABLE1=27; 

IF     (1TYPE=2)     THEM    DO;     MSTG=0 ;    TABLE1=    ! 
DC    J=0    TO    2    BY    i; 


CALL 
CALL 
CALL 
CALL 
CALL 
DO    J; 


.VY, .VY 
TEMP4A, 
.TEMP5A 
TEMP6A, 
TEMP7A, 
2  BY  1; 


:nd 
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SEV 


/* 


CALL 
/* 


/* 
/* 

/* 

RETU 

END 


END 


DK 
D^ 
CF 
TH 

TEST 

EN: 

SET 
DC 

D( 
END 

SET 

MST 

IF 

DC 
DK 
DM 
TH 
CF 

END 
CALL 

RUN 
CALC 

CAL 

TEM 

CAL 

CAL 
CAL 
CAL 
CAL 

UP  C 
CAL 

UP-C 

CAL 
CAL 
SET 
SWI 

RN; 

TRAJ 
DEC 
CTE 
CTE 
CTE 


CAL 

CAL 
CAL 
CAL 


G( J) =    DKG2( J ); 
(J)=    DM2(J); 
( J)=    CFCRM2< J ) ; 
<J)  =    CONSTANTSA 
THE    STEP    SIZE    V 
IF     (0<>CCMPARE(. 
THE    STEP    SIZE     TO 
J=0    TO    2    BY    l; 
J)=    DTV( J) ; 

THE    DRAG    PARAMET 

STEP    */ 
G=    6;     TA6LE1=    27 
(ITYPE=2)    THEN    D 
J=0    TC    2    BY    1; 
G( J)=    DKG2U ) ; 
<J)  =    DM2 (J); 
(J)=    C0NSTANTS4( 
( J)=    CFORM2( J) ; 


J);  end; 

ERSUS  THE  VACUMN  FALL  STEP  SIZE 
OTV,  ,D)  )  THEN  GO  TO  SIX; 
THE  VACUMN  VALUE  */ 


ERS  FOR  THE  PINAL  INTEGRATION 
0;  MSTG=  0;  TABLE1=0;  END; 


#/ 


J) ; 


PU 

GE; 

ULA 

2. 

L  M 

P3A 


NGE  FOR  THE  FINAL  INTEGRATION   */ 

LUE   DTV=  1/G-MVY  +  SQRT  (VY**2  + 


ATE 
L  A 
ATE 

L  M 

L  A 

TH 
TCH 


TE  THE 
*G*Y) ) 
ULT( .Gt 
=  TEMP2 
TEMP3 
ULT( .VY 
DC(  .TEM 
QRT( .TF 
D  D  (  .  V  Y , 
IV (.TEM 

THE  Ti 
DD( .DTV 

THE  DC 
X=X+DTV 
ULT{ .DT 
DD( .X, . 
E    SWITC 

-    o; 


DTV     VA. 

.Y,.TE 

A ;  T  E  M 
A(2)=T 
»  .VY,. 
P4A, .T 
>!P5A,  . 
•TEMP6 
P7A,  .G 
ME  OF 
,.TM,. 
WN  RAN 
*VX       * 

v,.vx, 

TEMP2A 
H    FOR 


MP2A)  ; 

P3A( 1)=    TEMP2AC  I) ; 

EMP2A(2l+l; 

TEMP4A) 5 

EtfP3A, .TEMP5A)  ; 

TEMP6A)  ; 

A, .TEMP7A1 ; 

,.DTV)  ; 

FALL    OF    THE    WEAPON      TM=    TM+OTV 

TM)  ; 

GE  TRAVEL  OF  THE  WEAPON 

/ 

.TEMP2A) ; 

X  )  * 
THE  PRINT  PROCEDURE   */ 


LARE  CTE(3)  BYTE 
^OCOH; 
(  n=OH; 
(2)=42H; 
SET=1; 

CALL  SETDAT; 
L  INPUT; 

SET=2; 

CALL  SETDAT; 
L  DECODE; 

SET=3J 
L  SETDAT; 

CALL  TRAJ; 
L  DIV( .XT.CTEt .X 


); 


END 


<>  1  +  1 


0UTPUT(6)=0FFH;    /*    INTERRUPT    */ 
CUTPUT(6)=0H;       /*    CLEARS    INTERRUPT 
DO    WHILE     INPUT(7)OINTER 
DO    1=0    TO    2; 

DO  WHILE  INPUT(7) 

0UTPUT(7)=X( I ) ; 

end; 

COUNT=COUNT«-l; 

CALL  TIME (5); 

/*  WAITS  FOR  REPLY 

IF  INPUT( 7) =FRCM$BUFFER 

OUTPUT! 7) =FROM$BUFFER; 

/*   TELLS  EXEC  TO  SEND 

GO  TO  loop; 

end; 


*/ 


FROM 


EXEC 
THEN 


END 


do; 


DATA   *./ 
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RFTURN; 

ENO  SERVSTWO; 

DC    FOFEVER; 

CCLNT=0; 

OUTPUT(6)=0;       /*    CLEARS    INTERRUPT    */ 

OUTPUT(7)=INIT; 

/*  THIS  MEANS:  3AL  IS  READY   */ 

DO  WHILE  INPUTC7)  <>  INIT;   END; 

/*  WAITS  FOR  THE  IDNO  */ 

CALL  servsone; 

DC  WHILE  COUNT  <>  5; 

/*  COUNT  IS  CONTROLLED  BY  SERVSTWO  PROCEDURE   */ 

OUTPUT( 7)=DAT; 

00  WHILE  INPUT<7)  <>  DAT;   END; 

/*  WAITS  FOR  DATA   */ 

CALL  SERVSTWO; 

END;   /*  WHILE  COUNT   */ 

END;   /*  FOREVER   */ 

EOF 
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